vb连接数据库

'非odbc
    Dim sServer As String,sUID As String,sPWD As String,sDatabase As String
    sServer = "1.1.3.44"
    sUID = "sa"
    sPWD = "1234"
    sDatabase = "erp"
     Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "Driver={sql server};server=" + sServer + ";uid=" + sUID + ";pwd=" + sPWD + ";database=" + sDatabase
    conn.ConnectionTimeout = 30
    conn.Open
    Dim sSQL As String
    sSQL = "select * from s_login"
    rs.Open sSQL,conn,adOpenStatic,adLockUnspecified,-1
    
    '使用odbc，其他数据库建立odbc都可以了。
    Set conn2 = New ADODB.Connection
    Set rs2 = New ADODB.Recordset
    Dim sDSN As String
    sDSN = "sqlservertest"
    conn2.ConnectionString = "DSN=" + sDSN + ";uid=" + sUID + ";pwd=" + sPWD + ";"
    conn2.ConnectionTimeout = 30
    conn2.Open
    rs2.Open sSQL,-1