probleem met query

[robintillie]

Hallo

Ik heb een probleem bij mijn eindwerk. Ik moet bij het deel aanwezigheden van mijn project het licentienummer , de naam en het aantal keer dat deze persoon aanwezig was op trainingen tijdens een bepaalde periode weergeven in een datagrid .
Nu heb ik het probleem dat ik altijd een fout gemeld krijg bij mijn query , zien jullie wat er hier mis aan is ?
Indien het niet duidelijk genoeg is kan ik je mijn eindwerk eens doorsturen.

Private Sub Zoeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pcbZoeken.Click
cnScan_2_Swim.Open("Provider=Microsoft.jet.OLEDB.4.0; Data Source=F:\6INFO\GIP\Programmeren\Database\Scan_2_Swim.mdb")

Dim dtafw As Data.DataTable = New Data.DataTable
Dim daafw As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter

Dim sql As String

sql = "SELECT Aanwezigheden.Licentienummer , naam & ' ' & voornaam as Naam_lid,Count(Aanwezigheden.Licentienummer)AS aantal_keer" & _
" From Aanwezigheden, Leden " & _
" Where Aanwezigheden.Licentienummer = leden.licentienummer "

If cbxBestuursfunctie.Checked = True Then sql = sql & "and Bestuursfunctie = " & cmbBestuursfunctie.SelectedValue
If cbxFunctie.Checked = True Then sql = sql & "and functie = " & cmbFunctie.SelectedValue
If cbxGraad.Checked = True Then sql = sql & "and graad = " & cmbGraad.SelectedValue
If cbxgroep.Checked = True Then sql = sql & "and groep = " & cmbGroep.SelectedValue
If cbxCategorie.Checked = True Then sql = sql & "and Categorie = " & cmbCategorie.SelectedValue
If cbxBegindatum.Checked = True Then sql = sql & "and (((Aanwezigheden.Datum)>=#" & DateTimePickerBegin.Value & "#))"
If cbxEinddatum.Checked = True Then sql = sql & "and (((Aanwezigheden.Datum)<=#" & DateTimePickerEind.Value & "#))"
If cbxBetalers.Checked = True Then sql = sql & "and betaald = 1"
If cbxNiet_Betalers.Checked = True Then sql = sql & " and betaald = 0"
sql = sql & "Group by Aanwezigheden.Licentienummer, Naam_lid "


rstAanw.Open(sql, cnScan_2_Swim, ADODB.CursorTypeEnum.adOpenDynamic)
daafw.Fill(dtafw, rstAanw)
dgrAfw.DataSource = dtafw
cnScan_2_Swim.Close()
End Sub