Imports System.Data.Ole[Db
Module Module1
Public con As New OleDbConnection
Public da As OleDbDataAdapter
Public dt As New DataTable
Public username As String

Public Sub dbase_conn()
If con.State = 1 Then con.Close()
Dim mybath As String
mybath = "C:\Users\yehyaa\Desktop\yehya\store\store\by_store.accdb"
con = New OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mybath & "';Jet OLEDBatabase Password=123456;")
con.Open()

End Sub
Public Sub conn_close()
con.Close()
End Sub

da = New OleDb.OleDbDataAdapter("select * from stores", con)

da = New OleDb.OleDbDataAdapter("select * from users where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", con)

سلام عليكم
تم نقل الموضوع للقسم الصحيح
يعطيك العافية