Option Explicit
 
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset

Private Sub Form_Load()
  Dim sSQL As String
 
  ' Connection öffnen
  With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "Demo.mdb"
    .Properties("Persist Security Info") = False
    .Open
  End With
 
  ' Recordset erstellen
  sSQL = "SELECT * FROM Adressen"
  oRs.CursorLocation = adUseClient
  oRs.Open sSQL, oConn, adOpenDynamic, adLockOptimistic
 
  ' DataSource und DataField festlegen
  Set sevText1.DataSource = oRs
  sevText1.DataField = "KdNr"
 
  Set sevText2.DataSource = oRs
  sevText2.DataField = "Name"
End Sub

Private Sub cmdDelete_Click()
  ' aktuellen Datensatz löschen
  oRs.Delete
 
  If oRs.RecordCount > 0 Then
    If Not oRs.EOF Then
      oRs.MoveNext
    Else
      oRs.MoveLast
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de