CREATE PROCEDURE TEST1
(
   @my_date as datetime
)
AS 
select col1, col2, col3 from mytable
where mydate = @my_date 
return @@rowcount

Dim cmd As New SqlCommand("TEST1", cn) ' где cn - ваш объект SqlConnection
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@my_date", SqlDbType.DateTime)
cmd.Parameters("@myDate").Value = System.DateTime.Now() ' Текущая дата и время

Dim cmd As New stem.Data.OleDb.OleDbCommand("select * from [Список]
where [Дата] = ?", MyConnection)
cmd.CommandType = CommandType.Text  ' Здесь ставим Text
cmd.Parameters.Add("@my_date", OleDbType.Date) ' Здесь используется OleDbType
cmd.Parameters("@my_date").Value = System.DateTime.Now ' Подставляете свою дату, только чтобы что то найти, дата должна полностью совпадать с вашей в Базе данных.
Dim MyAdapter As New System.Data.OleDb.OleDbDataAdapter(cmd)
MyAdapter.Fill(DataSet2, "Список")