Welcome to the Lounge

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.DataTable

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Database4.accdb")
        Dim cmd As New OleDbCommand("select* from Table where [name]=@user and [address]=@pass", conn)
        cmd.Parameters.Add("@user", OleDbType.VarChar).Value = TextBox1.Text
        cmd.Parameters.Add("@pass", OleDbType.VarChar).Value = TextBox1.Text
        Dim adapter1 As New OleDbDataAdapter(cmd)
        Dim table As New DataTable
        adapter1.Fill(table)
        If table.Rows.Count <= 0 Then
            MsgBox("Error username or password")
        Else
            MsgBox("Login Successfully")
        End If

    End Sub
End Class