If Not dbFieldExists(gdb(1), "Adressart") Then
  dbCreateField gdb(1), "Kunden", "Adressart", dbText, 20, True
End If
 
Set rs = gdb(1).OpenRecordset("Kunden")
..

Public Function dbFieldExists(oDB As Database, _
  ByVal sTable As String, _
  ByVal sField As String) As Boolean
 
  ' Prüfen, ob ein Feld in der Tabelle existsiert
  Dim oField As DAO.Field
 
  sField = UCase$(sField)
  For Each oField In oDB.TableDefs(sTable).Fields
    If UCase$(oField.Name) = sField Then
      dbFieldExists = True: Exit For
    End If
  Next 
End Function

Public Sub dbFieldCreate(oDB As Database, _
  ByVal sTable As String, _
  ByVal sField As String, _
  ByVal nType As Integer, _
  Optional ByVal nSize As Integer, _
  Optional ByVal bAllowZeroLength As Boolean = True)
 
  ' Feld erstellen
  Dim oField As New Field
 
  With oDB.TableDefs(sTable)
    Set oField = .CreateField(sField, nType)
    If nSize > 0 Then oField.Size = nSize
    If nType = dbText Or nType = dbMemo Then oField.AllowZeroLength = _
      bAllowZeroLength
    .Fields.Append oField
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de