关于VB升级到VB.net中rdo的有关问题！

关于VB升级到VB.net中rdo的问题！！！
Dim qdShowFilm As New RDO.rdoQuery
qdShowFilm = g_cniInfo.rdoConn.CreateQuery("Film", strSql)             
            With qdShowFilm.rdoParameters(0)
                .Type = RDO.DataTypeConstants.rdTypeVARCHAR
                .Direction = RDO.DirectionConstants.rdParamInput
            End With
请问上面那几句代码主要什么意思啊？如果不用rdo，定义dim cmd As Common.DbCommand
cmd = GetDbConnect().GetSqlStringCommand(strSql.ToString)，那应该怎么改啊？
[解决办法]
你vb都升级到vb.net了，何不把rdo也升级到ado.net？