[Bong89]

below the str which rs.Open(str, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic) there is a debug on it,.please what should i do? thanks a lot.,.

Dim rs As New ADODB.Recordset
    Dim count As Integer
    Dim constr As New ADODB.Connection

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        str = "Select * from admin where username = '" & UsernameTextBox.Text & "'"
        rs.Open(str, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        count = 0
        On Error Resume Next
        Do While Not rs.EOF
            count += 1
            rs.MoveNext()
        Loop
        rs.MoveFirst()
        On Error GoTo 0
        If count = 0 Then
            MsgBox("Unregistered username")
            UsernameTextBox.Clear()
            PasswordTextBox.Clear()
            UsernameTextBox.Focus()
            rs.Close()
            Exit Sub
        Else
            If PasswordTextBox.Text = rs.Fields(1).Value Then
                UsernameTextBox.Clear()
                PasswordTextBox.Clear()
                MsgBox("Logged In")
                main.Show()
                conn.Close()
                Me.Hide()
            Else
                MsgBox("Incorrect Password")
                UsernameTextBox.Clear()
                PasswordTextBox.Clear()
                UsernameTextBox.Focus()
                rs.Close()
            End If
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = getconnect()
        conn.Open()
    End Sub
    Public Sub ref()
        conn = getconnect()
        conn.Open()
    End Sub

End Class

This post has been edited by modi123_1: 27 July 2011 - 10:03 PM
Reason for edit:: please use code tags

[modi123_1]

What do you mean "there's a debug on it"?

[Bong89]

yes when i start running the program which the log in form of the inventory then the debug will occur when i enter the correct username and password. this was given by my friend to study this inventory but there is a problem when i start to run it..,.

[modi123_1]

There's an error? An exception? Debug is more of a process of stepping through the code to remove a bug (hence *DE*bug). What exception are you getting?