怎么用VB连SQL Serve数据库～？？

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.Open Provider = "SQLOLEDB.1;Password=SQL Server密码;Persist Security Info=True;User ID=SQL Server用户名;Initial Catalog=数据库名;Data Source=服务器名或IP"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from 你的表", conn, adOpenDynamic, adLockBatchOptimistic
If Not (rs.BOF And rs.EOF) Then
text1.Text = rs.Fields("字段1")
...
End If

Set rs = Nothing
Set conn = Nothing