请问下用VB连接SQL的代码怎么写，老是说SQL不存在或者访问被拒绝，有人能帮我看下我的程序哪出错了?谢谢！

给你一段代码自己去琢磨一下
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" Trim(Text1.Text) "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
username = mrc.Fields(0)
txtsql = "select username from use where password='" Trim(Text2.Text) "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 密码错误！", vbExclamation + vbOKOnly, "警告"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If
MDIForm1.Show
Unload Me

sql代码应该搜下就有了，你看你服务启动没。

最简单的办法：
在FORM里放一个ADODB控件，然后用它的连接向导就可以连接数据库了。在使用ADODB控件的时候，先在开发环境的菜单里找到“引用”，然后在出现的列表框里去找ADO，如果有不同版本，随便选一个就行。
请参考