Where is cn supposed to be defined? 1

[sanders720]

Where is cn supposed to be defined?


Private Sub cmdGetData_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connString As String
Dim sql As String
Dim C As Integer
Dim R As Integer


connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\deepblue\EngineeringBOM\VIA-WD User Files\" & cboJobNo.Value & ".mdb;" & _
"Persist Security Info=False"

MsgBox connString

cn.ConnectionString = connString

sql = "SELECT CAT, DESC1, DESC2, MFG, LOC FROM tblComp WHERE LOC = " & Me.cboSubAssy.Value
Debug.Print sql

Set rs.ActiveConnection = cn

With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Debug.Print "eof = "; .EOF
While Not .EOF
Debug.Print "field name = "; rs.Fields(0).Name
Debug.Print "field value = "; rs.Fields(0).Value
rs.MoveNext
Wend
.Close
End With

Set cn = Nothing


End Sub

 

[Durkin]

What do you mean 'defined'? Durkin

 

[sanders720]

After doing some research, I've come to realize that this was a really dumb question!

 

[Durkin]

Don't worry about it. It's only dumb if you ask it after your research. LOL Durkin