Private Sub Command0_Click()
    Dim adoConn As ADODB.Connection
    Dim adoRecSet As ADODB.Recordset
   
    On Error GoTo ConnectError
        Set adoConn = New ADODB.Connection
        adoConn.Open "JustinDSN", "myuser", "mypass"
    Exit Sub
   
ConnectError:
        MsgBox "Could not connect to Server"
    Exit Sub
   
    If adoConn.State = 1 Then
        MsgBox "Connection Successful"
    Else
        MsgBox "Connection Un-Successful"
    End If
   
    adoConn.Close
    Set adoConn = Nothing
End Sub