1) Проверь наличие ключевых полей, прав на вставку и удаление записей, возможность вставки пустых значений в таблице SQL,посмотри в конструкторе Access на эту таблицу - с какими параметрами она оказалась связана.
2) Передавать дату нужно в формате SQL Servera, что-то типа:
dateSQL = "'" & Month(date) & "." & Day(date) & "." & Year(date) & "'"
Соответственно запрос к серверу будет выглядеть так (подставь свои значения):
st_sq = "SELECT pole1, pole2 FROM tableSQL "
st_sq = st_sq & " WHERE (date = " & dateSQL & ")"
st_sq = st_sq & " ORDER BY pole1 "
Set db = CurrentDb()
Set rs = db.CreateQueryDef("zapros")
With rsPrih
.connect = "ODBC;DSN=SQ;Description=MS SQL Server;SERVER=MyServer;UID=Administrator;DATABASE=MySQL;Trusted_Connection=Yes"
.SQL = st_sq
End With
После этого у тебя будет запрос к серверу с фильтрацией данных по дате.

В своем примере создания запроса я сделал опечатку (вместо With rsPrih нужно With rs). Также я не описал переменные и не закрыл объекты, но, думаю, для специалиста по VB это не проблема.