我用sql数据库，用odbc做了连接，怎样用VB代码连接？

Question

建议建个system DSN ，那样就简单了。Dim conn As New ADODB.Connection
conn.Open "DSN=pubs;uid=username;pwd=password;database=pubs"

Answer 1

建个ODBC数据源，然后将连接字符串拷下来，然后写：conn.Open 连接字符串。

Answer 2

Private Sub Command1_Click()
 Call RegisterDatabase
End SubPrivate Sub RegisterDatabase()
Dim DB As Database
Dim ms As String  '描诉
Dim sx As String  '属性
Dim errN As Errorms = "我的数据库"
sx = "Database=Students" & vbCr & _
   "Description=" & ms & _
   vbCr & "OemToAnsi=No" & vbCr & "Server=Server1"
On Error GoTo Err_Register
DBEngine.RegisterDatabase "Students", _
    "SQL Server", True, sx
On Error GoTo 0
MsgBox "look Regester!"
Exit Sub
Err_Register:
   If DBEngine.Errors.Count > 0 Then
      For Each errN In DBEngine.Errors
          MsgBox "错误号：" & errN.Number _
          & vbCr & errN.Description
      Next errN
   End If
   Resume Next
End Sub