[Mido9]

للاسف الصورة مش متوفره معايا حالياً ..

بس ده كود الاستعلام

كود :

Dim saveinto2a As New OleDb.OleDbCommand
        Dim constr2a As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
        Dim conn2a As New OleDb.OleDbConnection(constr2a)
        Dim DataSet12a As New DataSet
        Dim SQLstr2a As String
        SQLstr2a = "SELECT * From t_factor "
        conn2a.Open()
        Dim dataadapter12a As New OleDb.OleDbDataAdapter(SQLstr2a, conn2a)
        dataadapter12a.Fill(DataSet12a, "t_factor")
        conn2a.Close()
        ComboBox3.DataSource = DataSet12a.Tables("t_factor")
        ComboBox3.DisplayMember = "factor_name"
        conn2a.Close()