vb连接mssql(ado)

ado无源连接mssql
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
---------driver 不用更改,server为sql server名
cn.ConnectionString = "driver={sql server};server=sql;uid=sa;pwd=A123bc;database=dbgp"
cn.CommandTimeout = 30
cn.Open
rs.Open "t", cn
'rs.MoveLast
Label1 = rs.Fields("Tid") & rs.Fields("Tname") & rs.Fields("Tage") & rs.Fields("Twage") & rs.Fields("Thire")
End Sub

-------------oledb无源连接mssql
Private Sub Form_Load()
Dim cn As Connection
Dim rs As Recordset
Set cn = New ADODB.Connection
---Data source=服务器主机名,initial catalog=数据库名
str1 = "Provider=SQLOLEDB.1;;password=;Persist Security Info=False;User ID=sa;Initial Catalog=sales;Data source=hilledp"
'str1 = "Provider=SQLOLEDB.1;Persist Security Info=faalse;User ID=sa;Initial Catalog=sales;Data source=."
cn.CommandTimeout = 30
cn.Open str1
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "login", cn
Label1 = rs.Fields("username") & ("password")
End Sub