Hallo Community,

die Suchfunktion habe ich bereits bemüht, aber leider sind die Probleme bei VBA teilweise so speziell, dass man bei Detailfragen nichts passendes findet.
Außerdem ich bin relativ frisch dabei was VBA angeht, besonders in Bezug auf Access und entschuldige mich schonmal im Voraus für Anfängerfehler. ;)

Meine Plan ist folgender:

Ich habe eine Tabelle in Access (Name: tblMitglieder) mit mehreren Spalten. Ich nenne diese Spalten jetzt mal Vorame, Alter, Stadt. Die Tabelle ist jetzt mit diversen Daten gefüllt.
Des Weiteren öffnet sich direkt beim Start der Acccess-Datei eine Maske, in der beispielsweise ein Feld "Vorname" existiert und dort der Name "Nick" aufgeführt ist. 

Nun gibt es noch ein Worddokument, welches an gewissen Stellen über Textmarken verfügt, wo die jeweiligen Daten der Access Tabelle eingetragen werden sollen.

Über einen Button (Name: register) in Access bzw. in der Maske möchte ich nun beispielsweise die Daten der Person "Nick" auslesen, dessen zugehörige Zeile sich irgendwo in der Tabelle befindet. Es soll also die dazugehörige Zeile ausgelesen werden.
Dann soll sich automatisch das Worddokument öffnen und die Inhalte dieser Zeile an die Stellen der jeweiligen Textmarken "TextVorname", "TextAlter" und "TextStadt" im Worddokument geschrieben werden.

Grob zusammengefasst:

• Von dem Namen in der Maske aus möchte ich in die entsprechende Zeile in der Tabelle springen
• Dort sollen die Zellen zu den Spalten Vorname, Alter, Stadt ausgelesen werden
• Das Ausgelesene soll in die Textmarken im Worddokument eingefügt werden. 

So weit so gut, allerdings funktioniert der Plan natürlich nicht.

Mein Code sieht bisher so aus:

Private Sub register_Click()
On Error GoTo Err_register_Click

Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim strSQL As String

Set Db = CurrentDb
strSQL = "SELECT * FROM tblMitglieder " & "WHERE Vorname = " & Me!Vorname 	

'mit Me!Vorname kann ich ja eigentlich auf das Feld in der Maske zugreifen und diesen Wert dann als 
'Ausgangspunkt nehmen, um in der Tabelle in der dazugehörigen Zeile zu arbeiten, oder?

Set Rst = Db.OpenRecordset(strSQL) 			'hier tritt der Fehler "1 Paramter wurde erwartet, aber es wurden zu wenig Parameter übergeben."
 

Set Word = CreateObject("Word.Application")

With Word
.Visible = True
.Documents.Open "C:\Dokumente\HW\Vonner\Organizer.doc"				
.ActiveDocument.Bookmarks("TextVorname").Select
.Selection.Text = Rst!Vorname
.ActiveDocument.Bookmarks("TextAlter").Select
.Selection.Text = Rst!Alter
.ActiveDocument.Bookmarks("TextStadt").Select
.Selection.Text = Rst!Stadt
End With

Exit_register_Click:
Exit Sub
Err_register_Click:
MsgBox Err.Description
Resume Exit_register_Click
End Sub


So, ich muss leider zugeben, dass ich mich mit SQL nicht wirklich auskenne und obiges teilweise zusammenkopiert habe.
Aus diesem Grunde fällt es mir schwer hier den Fehler zu finden bzw. nachzuvollziehen.

Kann mir jemand einen Tip geben was ich falsch mache oder mir vielleicht sogar einen Weg aufzeigen, wie das einfacher zu realisieren ist?

Sollten Verständnisprobleme auftauchen versuche ich das ganze auch gerne nocheinmal per Screenshots o.Ä zu veranschaulichen.

Vielen Dank schonmal im Voraus.

Gruß Nick