Visual Basic

<br />
' ** open database connection and recordset<br />
    Dim rs As New ADODB.Recordset<br />
    Dim Conn As New ADODB.Connection<br />
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\mydb"<br />
    Conn.Open ConnectionString<br />
<br />
' ** read contents of db into recordset<br />
Set rs = Conn.Execute("Select * from tblProfiles")<br />
While Not rs.EOF<br />
    With lstExistingProfile<br />
        .AddItem rs("ProfileName")<br />
        .DataMember = rs("profileID")<br />
    End With<br />
rs.MoveNext<br />
Wend<br />
Call Close_Db<br />
End Sub<br />