Hi All,

I have a code like here below.
When I run it, I get an eeror message : "No value given for one or more required parameters."
at the line 12 (with bold & undeline)

My code :
---------------
1 Private Sub OpenFile()
2 Dim conJarig as New OleDb.OleDbConnection
3 Dim bulan As Integer = Now.Month
4 Dim sqlString As String
5 conJarig.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
6 & "Data Source =C:\Inetpub\wwwroot\Juliando\DataFile\verjaardagen .mdb;" _
7 & "USER ID = Admin; Password =;"
8 sqlString = "SELECT naam, geslacht, MONTH(geboortedatum) AS maan " & _
9 "FROM jarig WHERE maan = '" & bulan & "' ORDER BY maan"
10 Dim jad As New OleDb.OleDbDataAdapter(sqlString, conJarig)
11 Dim ds As DataSet = New DataSet
12 jad.Fill(ds, "jarig")
13
14 davJarig.Table = dasJarig.Tables(0)
15 If Not IsPostBack Then
16 Session("rij") = 0
17 Session("sort") = "geboortedatum"
18 End If
19 davJarig.Sort = Session("sort")
20 End Sub
-----------------

What's wrong with my code ?
Can anybody correct it, please ?

Rgds,
Juliando