error 2450 when setting form

[abenitez77]

I am getting an error msg when i get to the line "Set frm = Forms(vFormname).Form". Error 2450, cannot find the referenced form...

'Code:
Dim frm as form

' Check If saved dynamic field exists
SqlStr = "Select ReportListID, DynFieldName, DynCalc, FormName, UserName From DynFields Where UserName = '" & GBL_Username & "' AND ReportListID = " & projectid
Set rs = db.OpenRecordset(SqlStr, dbOpenDynaset, dbSeeChanges)

If rs.EOF = True And rs.BOF = True Then
GoTo Exit_DynamicFieldCreator
Else
rs.MoveLast
recs = rs.RecordCount
rs.MoveFirst
End If

i = 1
Do
vFieldName = rs.DynFieldName
vDynCalc = rs.DynCalc
vFormname = rs.formname
Set frm = Forms(vFormname).Form

 

[vbaInet]

rs.formname is not returning a value at some point in within the Do loop.