Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Login = Me.UsuariosTableAdapter1.LoginSenhaString(TextBox1.Text, TextBox2.Text)
        If Login Is Nothing Then
            MsgBox("Erro ao se logar, verifique dados")
        Else
            MsgBox("Bem vindo ao Sistema Pessoal!")
            Form2.Show()
            Me.Hide()
        End If

        If CheckBox1.Checked = True Then
            My.Settings.Username = TextBox1.Text
            My.Settings.Save()
            My.Settings.Reload()
        End If
        If CheckBox2.Checked = True Then
            My.Settings.Password = TextBox2.Text
            My.Settings.Save()
            My.Settings.Reload()
        End If
    End Sub
End Class