Set cnnTest = New ADODB.Connection

    With cnnTest
        .Provider = "SQLOLEDB"
        .ConnectionTimeout =  5 

        .Properties("Data Source") = "."    ' Server (local)
        .Properties("Initial Catalog") = "MyDB" ' Database
        .Properties("Application Name") = "Testing" 'App.Title
        .Properties("Integrated Security").Value = "SSPI"
        .Open

    End With

    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = cnnTest
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open "Table1", Options:=adCmdTable
    End With

    Set DataGrid1.DataSource = rst
    Debug.Print cnnTest.Errors.Count
    Debug.Print cnnTest.Errors( 0 ).Description