Dim conn As ADODB.Connection<br>
Dim rs As ADODB.Recordset<br>
Dim txt As String<br>
Dim fld As Field<br>
<br>
' Open a connection using Oracle ODBC.<br>
Set conn = New ADODB.Connection<br>
conn.ConnectionString = _<br>
"Driver={Microsoft ODBC for Oracle};" & _<br>
"UID=user_name;PWD=user_passsword"<br>
conn.Open<br>
<br>
' Open the FuelTypes table.<br>
Set rs = New ADODB.Recordset<br>
rs.Open "TableName", conn, adOpenDynamic, adLockOptimistic, adCmdTable<br>
<br>
' List the data.<br>
Do While Not rs.EOF<br>
txt = ""<br>
For Each fld In rs.Fields<br>
txt = txt & Trim$(fld.Value) & ", "<br>
Next fld<br>
If Len(txt) > 0 Then txt = Left$(txt, Len(txt) - 2)<br>
List1.AddItem txt<br>
rs.MoveNext<br>
Loop<br>
<br>
rs.Close<br>
conn.Close<br>
<br>
Eric <p>Eric De Decker<br><a href=mailto:vbg.be@vbgroup.nl>vbg.be@vbgroup.nl</a><br><a href=
Basic Center</a><br>