Слишком мало параметров. Требуется 2. что оно хочет?

При вызове процедуры возникает ошибка "Run-time error '3061' Слишком мало параметров. Требуется 2." и выделяется строка "Set rsAllNames = dbContact.OpenRecordset(sqlNames)". Что там еще нужно? Какой параметр?
И правильно ли написаны запросы до этого?
Спасибо.

Public Sub updateTree()
Dim indx As Integer
Dim rsAllNames As Recordset
Dim sqlNames As String
Dim sCurrentAlpha As String
Dim sContactName As String
Dim currentAlpha As String

tvContact.Nodes.Clear

sqlNames = "SELECT ContactID, LastName, FirstName, MiddleInitial"
sqlNames = sqlNames & "MiddleInitial FROM Contact ORDER BY LastName"
sqlNames = sqlNames & "LastName, FirstName, MiddleInitial"

Set rsAllNames = dbContact.OpenRecordset(sqlNames)

If (rsAllNames.RecordCount > 0) Then
rsAllNames.MoveFirst
End If
For indx = Asc("А") To Asc("Я")
currentAlpha = Chr(indx)
Set contactNode = tvContact.Nodes.Add(, , currentAlpha, currentAlpha)
If (Not rsAllNames.EOF) Then
Do While UCase$(Left(rsAllNames!LastName, 1)) = currentAlpha
With rsAllNames
sContactName = !LastName & ","
sContactName = sContactName & !FirstName
If (Not IsNull(!MiddleInitial)) Then
sContactName = sContactName & "" & !MiddleInitial & "."
End If
End With

DoEvents

Set contactNode = tvContact.Nodes.Add(currentAlpha, tvwChild, "ID" & CStr(rsAllNames!ContactID), sContactName)
rsAllNames.MoveNext
If (rsAllNames.EOF) Then
Exit Do
End If
Loop
End If
Next
sbStatus.Panels.Item(1).Text = "There are" & rsAllNames.RecordCount & " contacts in the database."
rsAllNames.Close

DoEvents

End Sub

sqlNames = "SELECT ContactID, LastName, FirstName, MiddleInitial"
sqlNames = sqlNames & " FROM Contact ORDER BY LastName, "
sqlNames = sqlNames & " FirstName, MiddleInitial"

osmor,

спасибо