C#

Private Sub Connect_Click() 
 
Dim con As ADODB.Connection 
Dim recordset As ADODB.recordset 
Dim constr As String 

Set con = New ADODB.Connection 
 
con.Provider = "ADPProv.ADPProv.1" 

constr = "host=" & Host.Text 
constr = constr & ";product=" & Product.Text 
constr = constr & ";server=" & Server.Text 
constr = constr & ";pooling=TRUE" 
 
con.Open constr, "", Password.Text 
 
con.Properties("GROUP") = "ADMIN" 
 
Set recordset = con.Execute("Object",,adCmdTableDirect) 
 

Do Until recordset.EOF 
 With Output 
  For Each Field In recordset.Fields 
  .AddItem Field.Name & "=" & recordset(Field.Name) 
  Next 
  .AddItem"" 

 End With 
 Recordset.MoveNext 
 Loop 
End Sub 
Private Sub Data1_Validate(Action as Integer, Save As Integer) 
End Sub 

string constr = string.Format("provider=ADPProv.ADPProv.1;host={0};product={1};server={2};password={3};group=ADMIN;polling=TRUE",
	tBox_HostInfo.Text,
	tBox_ProductInfo.Text,
	tBox_ServerInfo.Text,
	tBox_PasswordInfo.Text);


OleDbConnection con = new OleDbConnection();
con.ConnectionString = constr;

con.Properties("GROUP") = "ADMIN"