'Insert Into mit OleDbCommand aus einem SqlClient.SqlDataAdapter möglich?
'
		Private conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=access.mdb"
		Private oledbconn As New OleDbConnection(conStr)
		Private daoledb As OleDbDataAdapter = Nothing
		Private dsoledb As DataSet = Nothing
 
			Dim connStr As String = My.Settings.cn
            Dim conn As New SqlConnection(connStr)
            conn.Open()
 
            DataGridView1.Visible = True
            Dim da As New SqlClient.SqlDataAdapter("Select tab_a.pnr," & _
              "tab_a.mnr, tab_b.nachname," & _
                                                   "tab_b.vorname," & _
                                                   "idx_tab_c.bez_mittel," & _
                                                   "tab_b.geb_datum From" & _
                                                   "(tab_a inner join tab_b on" & _
                                                   "tab_a.mnr = tab_b.matr_nr)" _
                                                   & _
                                                   "inner join idx_tab_c on" & _
                                                   "tab_a.sg =" & _
                                                   "idx_tab_c.nr where" & _
                                                   "tab_a.pnr = '" + _
                                                   txtBoxPNR.Text + "' ", conn)
 
 
			Dim dt As New DataTable()
            da.Fill(dt)
 
			Dim sql As String = "INSERT INTO access.alledaten(tab_b.pnr, tab_b.mnr," & _
  "tab_b.nachname," & _
                                                   "tab_b.vorname," & _
                                                   "idx_tab_c.bez_mittel," & _
                                                   "tab_b.geb_datum From" & _
                                                   "(tab_b inner join tab_b on" & _
                                                   "tab_b.mnr = tab_b.matr_nr)" _
                                                   & _
                                                   "inner join idx_tab_c on" & _
                                                   "tab_b.sg =" & _
                                                   "idx_tab_c.nr where" & _
                                                   "tab_b.pnr = '" & _
                                                   txtBoxPNR.Text & "'"""
                '*ExecuteNonQuery
                execNQuery(sql)
 
	Private Sub execNQuery(ByVal cmdText As String)
        Dim cmd As New OleDbCommand(cmdText, oledbconn)
        Try
            oledbconn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        oledbconn.Close()
    End Sub