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)