Public Sub InitDB()
    Dim DBPath As String
    CloseDB
    DBPath = GetIniString("Settings", "DB", "")
 
    Cn.CursorLocation = adUseClient
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=" & DBPath & "; Jet OLEDB:Database Password=XXX;" & _
      "Persist Security Info=False;"
End Sub

InitDB
 
        With cnRS
            .ActiveConnection = Cn
            .CursorLocation = adUseClient
            .Source = "SELECT item_number, sub_item, type, serial, description," & _
              "reported_fault From items WHERE job_number=" & JobDetails(0)
            .LockType = adLockOptimistic
            .Open
        End With
 
 
        With DataGrid1
          ' Titel der Tabelle
          .Caption = "Correct?"
 
          ' Datenanbindung
          Set .DataSource = cnRS
 ...

        Set Conn = New ADODB.Connection
        Conn.CursorLocation = adUseClient
         DBPath = GetIniString("Settings", "DB", "")
        Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & DBPath & "; Jet OLEDB:Database Password=XXX;" & _
          "Persist Security Info=False"
 
        ' Recordset erstellen und öffnen
        Set Rs = New ADODB.Recordset
        Rs.Open "SELECT item_number, sub_item, type, serial, description," & _
          "reported_fault From items WHERE job_number=" & JobDetails(0), Conn, _
          adOpenStatic, adLockOptimistic
ith DataGrid1
          ' Titel der Tabelle
          .Caption = "Correct?"
 
          ' Datenanbindung
          Set .DataSource = Rs

Bin beigeistert!