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”,位于:“工程”-> “引用”里面