Dim conStrCsv As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=" & dirName & ";Extended" & _
              "Properties='text;HDR=Yes;FMT=Delimited(,)'"
            Dim sqlCsv As String = "Select * From " & "[" & selectedFile & "]"
            Dim dtCsv As New DataTable
            Dim conCsv As New OleDb.OleDbConnection(conStrCsv)
            Dim daCsv As New OleDb.OleDbDataAdapter(sqlCsv, conStrCsv)
 
            daCsv.Fill(dtCsv)
 
            Dim conStrDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source = " & Verz & "\data\datenbank.mdb"
            Dim sqlDb As String = "select * from tblTest where strNummer = " & _
            Chr(34) & mtg.Text & Chr(34)
            Dim dtDb As New DataTable
            Dim conDb As New OleDb.OleDbConnection(conStrDB)
            Dim daDb As New OleDb.OleDbDataAdapter(sqlDb, conDb)
 
            daDb.Fill(dtDb)
 
            dtDb = dtCsv
 
            daDb.Update(dtDb) ' geht nicht !!!!!!!!!!!!!!!

Gru? asam