help with vb sql program

can anyone help me to see what's wrong with the following code?
I got errors at c1.open cst and else.

it's as simple as reading data from sql table and retrieve a field to display

thanks

VB Code:

Dim cl As ADODB.Connection
cst = "Provider=SQLOLEDB;" & _
        "Data Source=<ARCH-DATA>;" & _
        "Initial Catalog=<prototypecopier>;" & _
        "Integrated Security=SSPI"
cl.Open cst
cl.CursorLocation = adUseClient
Set rslocation = New ADODB.Recordset
 rslocation.Open "select srcdir from tblsrc where app_id=3 and src_location_index=0", cl
       
sSource = rslocation!srcdir
txtFrom.Text = sSource

Try instanciating your connection object. Also, what errors are you getting?

VB Code:

Dim cl As ADODB.Connection
Set cl As New ADODB.Connection
 
cst = "Provider=SQLOLEDB;" & _
        "Data Source=<ARCH-DATA>;" & _
        "Initial Catalog=<prototypecopier>;" & _
        "Integrated Security=SSPI"
cl.Open cst
cl.CursorLocation = adUseClient
Set rslocation = New ADODB.Recordset
 rslocation.Open "select srcdir from tblsrc where app_id=3 and src_location_index=0", cl
       
sSource = rslocation!srcdir
txtFrom.Text = sSource