Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQLstr As String = "SELECT * FROM userss where user_name='" & TextBox1.Text & "' and user_pass='" & TextBox2.Text & "'"
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DS, "userss")
        Conn.Close()
        If Me.BindingContext(DS, "userss").Count = 0 Then
            MsgBox("       ", MsgBoxStyle.Critical, "")
            Exit Sub
        Else

            Me.Hide()
            Form2.Show()
        End If
    End Sub