OleDbCommand command = new OleDbCommand("Select * from [Customers]", conn);
OleDbCommand command2 = new OleDbCommand("Select * from [Orders]", conn);
DbCommandSetDataProvider provider = new DbCommandSetDataProvider();
provider.AddCommand(command, "Customers");
provider.AddCommand(command2, "Orders");
provider.AddRelation("Customers2Orders", "Customers", "Orders", "CustomerID", "CustomerID");
LL.DataSource = provider;
LL.Design();
Dim command As New OleDbCommand("Select * from [Customers]", conn)
Dim command2 As New OleDbCommand("Select * from [Orders]", conn)
Dim provider As New DbCommandSetDataProvider()
provider.AddCommand(command, "Customers")
provider.AddCommand(command2, "Orders")
provider.AddRelation("Customers2Orders", "Customers", "Orders", "CustomerID", "CustomerID")
LL.DataSource = provider
LL.Design()