بارك الله فيك لكن حاولت ظهرخطأ
Syntax error in FROM clause.
Dim myary(6) As String
myary(0) = "MT_1oct"
myary(1) = "MT_1nov"
myary(2) = "MT_1dec"
myary(3) = "MT_1fefr"
myary(4) = "MT_1mars"
myary(5) = "MT_1avril"
myary(6) = "MT_1mai"
For Each x As String In myary
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.StartupPath & "\Database\MT_1.accdb ")
Dim cmd As New OleDbCommand("Select *FROM & x ", con)
cmd.Parameters.Add("@FNAME", OleDbType.VarChar).Value = "%" & TextBox4.Text.Trim & "%"
con.Open()
db.Load(cmd.ExecuteReader)
DataGridView1.DataSource = db
con.Close()
Next
هذه صورة الكود