cannot input text in the textbox

[matrik02]

I cannot insert any input into my textbox. Every time I insert one text or number from keyboard, I got this messagebox MsgBox "Please input valid password", vbCritical, "Warning". So How I can input full password into my textbox?

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii ' This case statment check that no text can be entered.
            Case vbKeyDelete ' Delete Key
            Case vbKeyBack 'Baskspace key
            Case vbKeyReturn
            Case Else
     Dim usrnm As String
     usrnm = TextBox1.Text
     adoRS.Close
     adoRS.Open "SELECT * FROM pass WHERE password='" & usrnm & "';", adoConn, adOpenStatic, adLockOptimistic
     If adoRS.Fields("Password").Value = TextBox1.Text And adoRS.Fields("username").Value = "Pengurus" Then
     pass = True
        'if password valid, success
     Unload Me
     frmMain.Show
     Else
        
         'If password invalid
        intCounter = intCounter + 1
        If intCounter = 4 Then
        MsgBox "You have insert invalid password more then 3", vbCritical, "Warning"
        intCounter = 0
        Unload Me
        Application.Shutdown
        Else
        MsgBox "Please input valid password", vbCritical, "Warning"
        TextBox1.SetFocus
        TextBox1.Text = ""
        End If
    End If