Dim Conn As ADODB.Connection
 
   Dim rs As ADODB.Recordset
   Dim sExcelFile As String
 
  ' vollständiger Pfad zur Excel-Datei
  sExcelFile = "F:\Test2.xls"
 
  ' Datenbank öffnen (Excel-Datei)
  Set Conn = New ADODB.Connection
  Conn.CursorLocation = adUseClient
 
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Extended Properties=Excel 8.0;" & _
    "Data Source=" & sExcelFile & "; User ID=Admin;"
 
 
  ' Recordset erstellen und öffnen
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.CursorType = adOpenKeyset  
  rs.LockType = adLockBatchOptimistic 
  rs.Open "[Liste$A1:D4]", Conn, , , adCmdTable
 
rs.MoveFirst
Do While Not rs.EOF
    If rs!Tab1 = "TestName" Then
        ' Name bereits Vorhanden
    Else
        rs.AddNew
            rs!Tab1 = "NameNeu"
            rs!Tab2 = "PLZ1"
            rs!Tab3 = "AGST"
            rs!Tab4  = "m"
        rs.Update
    End If
    rs.MoveNext
Loop
 
rs.MoveFirst
Do
Debug.Print rs!Tab1, rs!Tab2, rs!Tab3, rs!Tab4
rs.MoveNext
Loop Until rs.EOF = True
 
Conn.Close
 
ErrHdl:
    If Not Conn Is Nothing Then
        If Conn.State = adStateOpen Then Conn.Close
    End If
    Set Conn = Nothing
End Sub