请问where后的参数用变量怎样用

请问下列VBA代码中，红色部分，就是WHERE ID=c这个地方，好像有问题，运行后总提示“参数不足”，请教此处该如何处理。谢谢了

Dim N As Integer, M As Integer
Dim a() As Integer

-------------------------------------

Private Sub Command3_Click()
N = Val(Text3.Value)
End Sub

-----------------------------------

-Private Sub Command1_Click()
Dim i As Integer, j As Integer
ReDim a(N)
Randomize
For i = 1 To N
a(i) = Int(Rnd * 100) + 1
For j = 1 To i - 1
If a(i) = a(j) Then
j = i - 1
i = i - 1
End If
Next
Next
End Sub

-----------------------------

Private Sub Command2_Click()
Me.Text2.SetFocus
Dim b As String, c As Integer
c = Int(c + 1)
Set FF = CurrentDb.OpenRecordset("Select top 1 姓名 from xsxx where ID=c")
b = FF("姓名")
Text2.Text = b
End Sub