Visual Basic - Por qué no funciona????

hola tengo la siguiente funcio para verificar si ya existe una tabla y si no crearla
Function CrearCursos()
Dim TExistente As Boolean
Dim tabla As TableDef
Dim tabla1 As TableDef

For Each tabla In Data1.Database.TableDefs
If UCase(Data1.Recordset.Fields("Código")) = UCase(tabla.Name) Then
TExistente = True
End If
Next
While Not Data1.Recordset.EOF
If TExistente = False Then
Set tabla1 = Data1.Database.CreateTableDef(Me.Data1.Recordset.Fields("Código"))


Set campo = tabla1.CreateField("Codigo", dbLong)
tabla1.Fields.Append campo

Set campo = tabla1.CreateField("Primer Apellido", dbText, 50)
tabla1.Fields.Append campo



Set campo = tabla1.CreateField("Primer Nombre", dbText, 50)
tabla1.Fields.Append campo


Data1.Database.TableDefs.Append tabla1

End If
TExistente = False
Data1.Recordset.MoveNext
Wend

End Function
pero no funciona, por que??
gracias