I'm receiving error message "ExecuteReader got No value given for one or more required parameters", any help with this is appreciated. (using Access 2003)
Public Class frmDisplayJV
Private Sub DisplayJV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cbJVDate.Items.Clear()
Dim ADate, SQLStmt As String
Dim ACounter As Integer
Dim DBCnxn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=DB.mdb")
SQLStmt = "select distinct format([AccountingDate],'yyyy-mm-dd') as AcctgDate from Orders order by format([AccountingDate],'yyyy-mm-dd') DESC"
Dim DateCommand As New System.Data.OleDb.OleDbCommand(SQLStmt, DBCnxn)
Dim DateReader As System.Data.OleDb.OleDbDataReader
DBCnxn.Open()
Try
DateReader = DateCommand.ExecuteReader
Catch ex As Exception
MsgBox("ExecuteReader got " & ex.Message)
Exit Sub
End Try
ACounter = 0
Do While DateReader.Read()
ADate = DateReader.Item("AcctgDate")
cbJVDate.Items.Add(ADate)
If ACounter = 0 Then cbJVDate.Text = ADate
ACounter += 1
Loop
DBCnxn.Close()
'lblAdvice.ForeColor = ForeColor.Black'
lblAdvice.Text = "Select the date to journalize from the drop down box..."
Me.cbJVDate.Focus()
End Sub