Descargar

Dim sPath As String = "C:"
    Dim sDbName As String = "DbAccess.mdb"
 
    Dim StandardSecurity As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & sDbName & ";User Id=admin;Password=;"
 
        Dim cn As New ADODB.Connection
        cn.ConnectionString = StandardSecurity
 
        Try
            cn.Open()
            MsgBox(ADOStateProperty(cn.State))
            cn.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    Function ADOStateProperty(ByVal iState As Integer) As String
        REM ADO State Property
        REM http://www.w3schools.com/ado/prop_conn_state.asp
        If iState = 0 Then
            Return "Closed"
        ElseIf iState = 1 Then
            Return "Open"
        ElseIf iState = 2 Then
            Return "Connecting"
        ElseIf iState = 4 Then
            Return "Executing"
        ElseIf iState = 8 Then
            Return "Fetching"
        End If
        Return "unknown"
    End Function

Descargar