Private Sub CommandButton1_Click() '
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
Dim Dia As UserForm
Dim s As String
Dim TextBox11 As Date
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Hier Quelle der Datenbank eintragen]*.mdb;"
DBS.Open "Select * from [Tabelle der Accessdatenbank]", ADOC, adOpenKeyset, _
adLockOptimistic
Set Dia = User_Form
DBS.AddNew
With Dia
DBS!Hersteller = .TextBox1.Value & ""
...
DBS.Update
End With
DBS.Close
MsgBox "In Access geschrieben!"
User_Form.Hide
Als Erklärung nach DBS! gibst du den Feldnamen deiner Access-Datenbank an. Und bei .TextBox1.Value lasse ich den Eintrag der Textbox einer UserForm reinschreiben. Das ganze basiert nämlich bei mir auf einem UserForm. Allerdings dürfte das auch mit einem Tabellenblatt problemlos funktionieren...
Als Literaturhinweis kann ich dir "Excel-VBA-Programmierung" von Bernd Held ans Herz legen, da ist es gut beschrieben...
MfG Torsten