Dim ADOconn As New ADODB.Connection
Dim strConnectString As String    strConnectString = "Driver={Microsoft ODBC for Oracle};Server=" & strServer & ";Uid=" & strUserName & ";Pwd=" & strPassword
    ADOconn.Open strConnectString
    
    If ADOconn.State = adStateOpen Then
        StatusBar1.SimpleText = "已经连接到数据库 " & strServer
    Else
        StatusBar1.SimpleText = "连接数据库 " & strServer & "失败!"
    End If