Public oConn As adodb.Connection
Public oRS As adodb.Recordset
 
Sub openDB()
Set oConn = New adodb.Connection
Set oRS = New adodb.Recordset
oConn.Open "Driver=MySQL ODBC 3.51 Driver;UID=Admin;PWD=***;database=adressen"
oRS.LockType = adLockOptimistic
oRS.CursorLocation = adUseClient
oRS.Open "SELECT * FROM tabelle1", oConn
End Sub

Private Sub Command4_Click()
oRS.Requery
oRS("Name") = Text1.Text
oRS("vorname") = Text2.Text
oRS("telefon") = Text3.Text
' mit oRS.UpdateBatch gehts aber ich glaub das ist nicht richtig
oRS.Update  
End Sub