Textfelder per Combobox füllen

[predason]

Hallo

Habe nun ein Code hier mitdem ich gerne per Auswahl in einer Combobox eines Namens, restliche Felder auf der Form mit dem record des ausgewählten Namens in der Tabelle, füllen will. Problem ist nur, beim Auswählen in der Combobox stürzt mein Programm ab :S...

Code sieht folgendermassen aus :

Private Sub fctRecherche_AfterUpdate()

Dim rs As Recordset

Dim db As Database

Set db = CurrentDb()

Set rs = db.OpenRecordset("tblParticipant", dbOpenDynaset)

mcrit = "dtNom ='" & "dtPrenom='"

Do While Not rs.EOF

rs.FindFirst mcrit

txtNom = rs!dtNom

txtPrenom = rs!dtPrenom

txtMatricule = rs!dtMatricule

txtRue = rs!dtRue

txtPays = rs!dtPays

txtCodePostale = rs!dtCodePostale

txtLocalite = rs!dtLocalite

txtSexe = rs!dtSexe

txtEntree = rs!dtEntree

txtNationalite = rs!dtNationalite

txtSMS = rs!dtSMS

txtGSM = rs!dtGSM

txtTelParents = rs!dtTelParents

txtEmail = rs!dtEmail

Loop

db.Close

End Sub

bitte um schnelle antworten danke

mfg predason

[MartinSt]

Hallo

1. ist ein vernünftiges Errorhandling im Code sinnvoll, um die Fehlerstelle zu lokalisieren.

2. solltest du uns damit verraten können, wo und welcher Fehler auftritt

3. siehst du dieses auch beim Debuggen

Gruß Martin