vb6.0 与 SQL2000

[sn216]

1.查询
GetFirstName()和GetLastName()是解析姓名的函数
Dim SearchStr As String
Dim FirstN As String
Dim LastN As String
SearchStr = InputBox("输入完整姓名", "资料查询")
FirstN = GetFirstName(SearchStr)
LastN = GetLastName(SearchStr)
Text2.Text = LastN & FirstN
Adodc1.RecordSource = "select * from employees where FirstName=FirstN and LastName=LastN"
Adodc1.Refresh

报错：列名‘FirstN’无效！

请问：如何才能查询完成？
2.添加
On Error GoTo AddErr
Adodc1.Recordset.MoveLast
DataGrid1.SetFocus
SendKeys "{down}"

？？？？？？？？？？？？此处好像缺什么？如何加？SendKeys "{down}"

Exit Sub
AddErr:
MsgBox Err.Description

[sn216]

不行呀，各位高手能先验一下，在发，
SendKeys "{down}" 后面加 DoEvents没有效果

[planetike]

Adodc1.RecordSource = "select * from employees where FirstName='" & FirstN & "' and LastName='"& LastN & "'"

[猞猁狲]

Adodc1.RecordSource这对吗？因该用adodc1.recordset吧！！

[DragonBill]

Adodc1.RecordSource = "select * from employees where FirstName=FirstN and LastName=LastN"

改为 Adodc1.RecordSource = "select * from employees where FirstName='" & FirstN & "' and LastName=LastN"

SendKeys "{down}" 后面加 DoEvents