Dim Connection As New SqlClient.SqlConnection
Dim Command As New SqlClient.SqlCommand
Dim Adaptor As New SqlClient.SqlDataAdapter
Dim Dataset As New Database1DataSet
Connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
Command.CommandText = "SELECT * FROM [members] WHERE Username = @Userame AND [Password] =@Password"
Command.Parameters.AddWithValue("@Username", UsernameTextBox.Text)
Command.Parameters.AddWithValue("@Password", PasswordTextBox.Text)
Connection.Open()
Command.Connection = Connection
Adaptor.SelectCommand = Command
Adaptor.Fill(Dataset, "0")
Dim count = Dataset.Tables(0).Rows.Count
If count > 0 Then
Form3.Show()
Me.Hide()
Else : MsgBox("incorect login", MsgBoxStyle.Critical)
UsernameTextBox.Clear()
PasswordTextBox.Clear()
End If