How to from VB6

[Dib]

Hi,

I have this statment in VB6 how do I make it work in Dot net program.
Dim oForm as Form

If rs.Fields("OpenFM").Value = "F" Then

strSqlFName = "SELECT * from tblmenudesc where tblmenudesc.menuid=" &
rs.Fields(0).Value

rs2 = New ADODB.Recordset

rs2.Open(strSqlFName, Cn)

If rs2.BOF = False And rs2.EOF = False Then

'UPGRADE_ISSUE: Forms collection was not upgraded. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'

'UPGRADE_WARNING: Couldn't resolve default property of object Forms.Add.
Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Set oForm = Forms.Add(rs2.Fields("FName"))

I = 3

oForm.Show()

Thanks

Dib