Anonyme

        Dim com As New OleDb.OleDbCommand
        Try
            con.Open()
            com.Connection = con
            com.CommandTimeout = 5
            com.CommandType = CommandType.Text
            com.CommandText = "SELECT tblCategories.* " & _
                      "FROM (((tblCategories INNER JOIN " & _
                      "tblManufacturiers ON tblCategories.ID = tblManufacturiers.ID) INNER JOIN " & _
                      "tblProduits ON tblCategories.ID = tblProduits.ID) INNER JOIN " & _
                      "tblProvinces ON tblCategories.ID = tblProvinces.ID)"
            com.ExecuteReader()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try