Sql 如何在vb中从ms access中检索字段

我需要根据vb6中ms access输入的用户名访问员工表的工资字段。。我在一个表单中读取用户名和密码，然后输入另一个表单，该表单显示用户名对应的工资。我正在使用Adodc1连接。我知道SQL，但不知道如何在vb中实现它。。。我想知道在哪里使用sql查询？

---

谢谢

如果您正在使用DAO，这应该会有所帮助。将以下函数添加到模块中，并在MyDB中传递对已打开数据库的引用（对于数据类型DAO.database，使用DAO.OpenDatabase（）函数打开数据库）：

现在，从每个表单（需要运行SQL查询的地方）调用此函数：

---

作为总结，您可以根据用户名执行select查询。我们如何帮助取决于你做了什么，以及你到底在哪里受困。请注意，StackOverflow不是一个要求为您编写代码或为您做家庭作业的网站。

Public Function GetQueryResults(ByRef MyDB as DAO.Database, SQLQuery As String) As DAO.Recordset
    Dim Q As DAO.QueryDef, R As DAO.Recordset

    Set Q = MyDB.CreateQueryDef("", SQLQuery)
    Set R = Q.OpenRecordset

    Set GetQueryResults = R
End Function

Public Function GetFirstValueFromQuery(MyDB As DAO.Database, SQLQuery As String) As String
    If (MyDB Is Nothing) Then Exit Function

    Dim RES As DAO.Recordset, T As String

    Set RES = GetQueryResults(MyDB, SQLQuery)

    With RES
        T = .Fields(0).Value
        GetFirstValueFromQueryGeneral = T
    End With

    RES.Close
End Function

Dim A as String
A=GetFirstValueFromQuery(MyDatabase, "SELECT Employee.Salary FROM Employee WHERE Employee.UserName='"+uname+"'")
Msgbox "Salary="+A