Private Sub WriteToAccess()
 
        '0
        'Connection zur Access datei
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=test.mdb")
        Dim tabellenname As String = "testdb"
 
        '1
        'Create Befehl für Tabelle in Access Datenbank erstellen
        Dim sb As New StringBuilder()
        sb.Append("CREATE TABLE ")
        sb.Append(tabellenname)
        sb.Append("(")
        For Each field As DataColumn In dt.Columns
            sb.AppendFormat("  {0} {1},", field.ColumnName, _
              field.DataType.ToString())
        Next
 
 
        '2
        'Befehl für Access aufbereiten
        sb.Append(")")
        sb.Replace(",)", ")")
        sb.Replace("System.", "")
        sb.Replace("Int16", "String")
        sb.Replace("Int32", "String")
        sb.Replace("Boolean", "String")
        sb.Replace("Single", "String")
 
 
        '3
        'Create Befehl ausführen
        Dim cmd As New OleDbCommand(sb.ToString(), con)
 
        Try
            con.Open()
            cmd.ExecuteNonQuery()
 
            'Status aller Datensätze auf added setzen
            For Each row As DataRow In ds.Tables(0).Rows
                row.SetAdded()
            Next
 
            'In Access Datenbank schreiben
            Dim dadapter2 As New OleDbDataAdapter()
            dadapter2.SelectCommand = New OleDbCommand("Select * from " & _
              tabellenname, con)
            Dim custCB As New OleDbCommandBuilder(dadapter2)
 
            dadapter2.Update(ds)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
 
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET