dim rs as ADODB.recordset
dim sql as string

sql = "USE master; SELECT NAME FROM sysdatabases"
set rs = consource.execute(sql,,1)

do while not rs.eof
'rs(0) will be the current NAME, do whatever you want with it
rs.movenext
loop

"christopher ward" wrote:

Dear Experts

I am trying to execute some very simple sql from vba. The sql is

USE master;
SELECT NAME FROM sysdatabases

I want to then place the results in a list box on a vba form

To do this I am looking at recordsets and ado where I cannot find a decent
documented method i can work with. So far I have created


soucon = "Provider=" & Master.TextBox22.Value & ";Data Source=" &
Master.TextBox23.Value _
& ";Initial Catalog=" & Master.TextBox24.Value & ";User id=" &
Master.TextBox25.Value _
& ";Password=" & Master.TextBox26.Value

Set ConSource = CreateObject("ADODB.Connection")
ConSource.Open soucon

which i believe works and connects to Master - how do i now create a
recordset and populate my list box is my question ?

If you respond thank you for your time and efforts as always


kind regards

--
C Ward