---

Can somebody tell me why the compiler returns an error about the click()
event here

Private Sub dbcNaam_Click(Area As Integer)
Dim strNaam As String
Dim strNaamC As String

strNaamC = dbcNaam.Text
strNaam = dtaKlanten.Recordset.Fields("b_klnm")
dtaKlanten.Recordset.FindFirst (strNaamC = strNaam)

txtAdres.Text = dtaKlanten.Recordset.Fields("b_adrs")
txtBTW.Text = dtaKlanten.Recordset.Fields("b_BTWN")

End Sub

---

What error?
Boeman <sylvainx_girardx@hotmail.com> wrote in message
news:94mjg4$aer$1@newspc4.rz.uni-hohenheim.de...
> Can somebody tell me why the compiler returns an error about the click()
> event here
>
> Private Sub dbcNaam_Click(Area As Integer)
> Dim strNaam As String
> Dim strNaamC As String
>
> strNaamC = dbcNaam.Text
> strNaam = dtaKlanten.Recordset.Fields("b_klnm")
> dtaKlanten.Recordset.FindFirst (strNaamC = strNaam)
>
> txtAdres.Text = dtaKlanten.Recordset.Fields("b_adrs")
> txtBTW.Text = dtaKlanten.Recordset.Fields("b_BTWN")
>
> End Sub
>
>
>