Private Sub Login(ProjectName As String, User As String, _
        &Password As String)
    
    On Error GoTo CheckError
    
     'tdc is a TDConnection object
    tdc.ConnectProject ProjectName, User, Password
    Exit Sub

CheckError:
    if (Err.Number - vbObjectError) = _
        TDAPIOLELib.TDOLE_ILLEGALPASSWORD Then
            LoginForm.Show 1
    Else
        MsgBox "Error: " & Err.Description, vbCritical
    End If
End Sub