[السعيدي]

هل هذا الكود صحيح
Imports System.Data.OleDb

Public Class Form2


    Dim conn As New OleDbConnection


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


        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\h1.accdb", "\h2.accdb", "\h3.accdb", "\h4.accdb","\h5.accdb", "\h6.accdb", "\h7.accdb"

     End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


        conn.Open()


        Try


            Dim cmdselect As New OleDbCommand


            cmdselect.Connection = conn


            'cmdselect.CommandText = " select * from h4 where المسافة = " + TextBox1.Text + ""

           

Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " where …………………….", conn)