如何使用ADO对象连接SQL Server数据库

Private Sub Command1_Click()
  Dim cn As Connection
  Dim rs As Recordset
  Dim str As String
  Set cn = New ADODB.Connection
  str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=RSDAGLXT;Data Source=."
  cn.Open str
  Set rs = New ADODB.Recordset
  rs.CursorType = adOpenKeyset
  rs.LockType = adLockOptimistic
  rs.Open "人事档案信息表", cn
  Set MSHFlexGrid1.DataSource = rs
End Sub