Dim oConn As System.Data.OleDb.OleDbConnection Dim oCommand As New OleDbCommand() oCommand.CommandText = "ct_DisplaySchedule2" oCommand.CommandType = CommandType.StoredProcedure 'Create a new parameter and add it to the parameters collection Dim oParam1 As New OleDbParameter("@ttStartTime", OleDb.OleDbType.Date) oParam1.Value = MyDate1 oCommand.Parameters.Add(oParam1) Dim oParam2 As New OleDbParameter("@ttEndTime", OleDb.OleDbType.Date) oParam2.Value = MyDate2 oCommand.Parameters.Add(oParam2) Dim oParam3 As New OleDbParameter("@tiDeptID", OleDb.OleDbType.Integer) oParam3.Value = gnDeptID oCommand.Parameters.Add(oParam3)