Option Explicit
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
    Show
    Conn.Open "Provider=SQLOLEDB;Data Source=服务器IP（或本地机器名）;UID=用户名（sa）;PWD=密码（sa）;initial catalog=数据库名称"
    Set rs = Conn.Execute("select * from et_user")
    Print rs("et_user_name")
    rs.Close
End Sub

新建工程文件，然后引用“Microsoft ActiveX Data Object 2.0 Library”，位于：“工程”-> “引用”里面