Делаю базу

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR " & "(ID  COUNTER, r DATETIME, m TEXT, n TEXT,o TEXT, k TINYINT, s TEXT);"
connDB.Close
Set connDB = Nothing
End Sub

И заполняю ее
Потом хочу достать информацию

Sub uu()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
Range("F:L").ClearContents
SQLr = "SELECT ID, r, m, n,o,k,s FROM RRR WHERE o = '" & Sheets("Лист1").Cells(1, 1).Value & "' AND  ID= " & Sheets("Лист1").Cells(2, 1).Value & " "

Set tbl = dbs.OpenRecordset(SQLr)
Sheets("Лист1").Select
Cells(2, 6).CopyFromRecordset tbl
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub

cells 1.1 получается текстовое значение
cells 2.1 цифровое


Как прописать так, чтобы если вдруг не указав цифровое значение в cells 2.1, тем не менее код смог выполнился только используя значения cells 1.1

Вопрос связан с тем, что в самом запросе ( как я вижу решение) будет просто прописано и 4 критерия
А, скажем, на самом листе может быть указан только 2 из них, остальные будут отсутствовать, они не будут указаны
То, есть можно ли сам запрос сделать статичным в такой ситуации?
Потому что в этом конкретном примере я увидел, что так Excel VBA кидает ошибку...
Подскажите, пожалуйста, какие варианты решения вообщем могут быть.

http://www.sql.ru/forum/1284108/zapros-bez-ukazaniya-otdelnyh-peremennyh