Dim myConnStr As String
    Dim myRSet As ADODB.Recordset
    Set myRSet = New ADODB.Recordset
    myConnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=销售管理;Data Source=(local)"
    myRSet.ActiveConnection = myConnStr
    If Me.TxtFind.Text = "" Then
        MsgBox "请输入查询内容！", vbOKOnly + 16, "查询员工信息"
        Me.TxtFind.SetFocus
        Exit Sub
    End If
    myRSet.Open ("select * from 员工表 where " & Me.ComFind.Text & " = " & Chr$(34) & Me.TxtFind.Text & Chr$(34))
    Me.Adodc2.RecordSource = myRSet.Fields(0)
    Set DataGrid1.DataSource = Adodc2 

在VB上实现
查询给定员工号码的 员工信息 
COMFIND是选择查询方式的下拉列表  TXTFIND 是输入查询的内容
员工表放在SQL数据库的 销售管理那个数据库中
然后把查询到的记录集给ADODC2 接着用DATAGRID绑定这个记录集并显示出来  
这样做有什么问题？