Option Explicit
Dim conn As ADODB.Connection 
Dim RsKunden As ADODB.Recordset
Dim sqlKunde As String
 
 
 
 
Private Sub Form_Load()
'----- Verbindung mit der DB aufnehmen 
Set conn = New Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "DSN=dbibt"
conn.Open
End Sub
 
 
Private Sub cmdKundenanlegen_Click(Index As Integer)
Set RsKunden.ActiveConnection = conn
 
RsKunden.LockType = adLockPessimistic
RsKunden.Source = "SELECT * FROM tblKunde"
RsKunden.Open
 
RsKunden.AddNew
RsKunden.Fields(0) = Me.txtKundenNummer
RsKunden.Fields(1) = Me.txtKundenName
RsKunden.Update
End Sub