strPathToDB = GetPath
      Set CnA = New ADODB.Connection
 
      With CnA
         .CursorLocation = adUseClient
         .Mode = adModeShareDenyNone
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .ConnectionString = strPathToDB
         .Open
      End With
 
      Dim RsA As ADODB.Recordset
 
      If CnA.State = adStateClosed Then
         MsgBox "keine Connection zur Datenbank", _
                vbCritical
         Exit Sub
      End If
 
      Set RsA = New ADODB.Recordset
 
     With RsA
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .ActiveConnection = CnA
         .Open "Select position from einzelbestellungen_positionen WHERE" & _
           "Bestellnummer = " & txt_Bestellnummer.Text '<<< FEHLER
      End With

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD