NUMERO DE TENTATIVAS?

    Dim Tentativas As Integer = 0
        Dim usuario As String
        Dim senha As String

        usuario = ds.Tables(0).Rows(i)([Ô]Usuario[Ô]).ToString
        senha = ds.Tables(0).Rows(i)([Ô]Senha[Ô]).ToString

        If txtUsuario.Text = usuario And txtSenha.Text = senha Then
            Me.Finalize()
            Form1.Show()
        End If

        If txtUsuario.Text <> usuario And txtSenha.Text <> senha Then
            While (Tentativas >= 3)
                Tentativas = Tentativas + 1
                MsgBox([Ô]Usuario ou senha invalido tente novamente[Ô], MsgBoxStyle.Critical)
                txtUsuario.Text = [Ô][Ô]
                txtSenha.Text = [Ô][Ô]
                txtUsuario.Focus()
            End While
            MsgBox([Ô]Suas tentativas acabaram[Ô], MsgBoxStyle.Critical)
            Me.Close()
        End If
    End Sub 

Citação:

:
Dim Tentativas As Integer = 0
Dim usuario As String
Dim senha As String

usuario = ds.Tables(0).Rows(i)([Ô]Usuario[Ô]).ToString
senha = ds.Tables(0).Rows(i)([Ô]Senha[Ô]).ToString

If txtUsuario.Text = usuario And txtSenha.Text = senha Then
Me.Finalize()
Form1.Show()
Else
Tentativas += 1
If Tentativas < 3
MsgBox([Ô]Usuario ou senha invalido tente novamente[Ô], MsgBoxStyle.Critical)
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.Focus()
Else
MsgBox([Ô]Suas tentativas acabaram[Ô], MsgBoxStyle.Critical)
Me.Close()
End If

End If
End Sub