Dim da As New OleDb.OleDbDataAdapter("Select kdnr, name, ort From stammdat" & _
       "where kdnr=" & "11 506", _
         "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
         "Source=|DataDirectory|\faktur.mdb")