Guten Abend,

ich habe folgendes Problem:

Ich möchte über ein Formular von VB, Daten in eine bestehende Access Datenbank übertragen.

Das ist der Quelltext:

Private adoCn As ADODB.Connection

Private adoCn As ADODB.Connection

Private adoRs As ADODB.Recordset

Const DbPfad As String = "F:\Programmieren\Test\Angaben.mdb"

Private Sub cmdStart_Click()

With adoRs

.AddNew

.Fields("Name") = Me.txtName

.Fields("Vorname") = Me.txtVorname

.Fields("Alter") = Me.txtAlter

.Update

End With

End Sub

Private Sub Form_Load()

Set adoCn = New ADODB.Connection

With adoCn

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPfad

.Open

If .State = adStateOpen Then

MsgBox "Verbindung mit der Datenbank wurde hergestellt!"

Else

MsgBox "Achtung: Die Verbindung mit der Datenbank wurde nicht hergestellt!"

End If

End With

End Sub

Verbindung mit Datenbank wird erstellt. Nur wenn ich die Daten eingebe und auf den Butten Klick kommt folgende Fehlermeldung:

Objektvariable oder With-Blockvariable nicht festgelegt

Ich hoffe Ihr könnt mir weiter helfen da ich ziemlich neu in VB bin.

Habe auch nichts richtiges im Internet gefunden.

Hat sich erledigt kann geschlossen werden. Sorry Für den unnötigen Eintrag.