Open Method Failed

Getting an error on the rst.Open statement of
"Method 'Open' of object '_Recordset' failed"

I am using the same code that I have used before, just tweaked some. Earlier I had an error because the ActiveX control was not checked off for the ADODB connection.

Below is the code...any ideas? THANKS!


Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim lg As String
Dim frmOffset As String
Dim tagnm As String
Dim sql1 As String
Set Conn = CurrentProject.Connection

frmOffset = "3. Offset Printing"
lg = "PT"
tagnm = "Label22"
sql1 = "select translation from translation where lang=" & "'" & lg & "'" & "and formname=" & "'" & frmOffset & "'" & " and tagname=" & "'" & tagnm & "'"

rst.Open sql1, Conn, adOpenKeyset, adLockOptimistic
Me.Label22.Caption = rst!translation