Code:
Public Class Form1 Dim PasswordTrials As Integer Private Property TextPassword As Object Private Property TextUsername As Object Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Login = Me.ClientsTableAdapter1.ClientQuery(TextUsername.Text, TextPassword.Text)