VB里怎么把工程和数据库连接?

我弄了个登陆框和数据库里的一个用户表连接,可是编写代码的时候出错,高手帮我看看!!
Dim sql As String

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=shiyan1;UID=;PWD="
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql <---这句出错!!
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
Sub main()
pass.Show vbModal
End Sub
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select * from yonghu where username'" & Trim$(Text1.Text) & "'" & " And userpassword = " & Trim$(Text2.Text) + " '"
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then
message = MsgBox("用户名或密码错误！", 0, "消息提示")
Else
u

VB里怎么把工程和数据库连接? VB怎么和数据库连接，求详细讲解！ VB和SQL数据库连接问题 VB 一个工程中能否有多种数据库连接方式 网页怎么和数据库连接 ASP怎么和数据库连接~~~ vb 数据库连接 vb adodc 怎么用代码实现数据库连接 用VB如何创建于工程相连的INI。把工程里的设置保存进去 如何把EXE文件破解成VB工程文件，然后在VB里可以改编？_