陈述不是一个有效的名称空间，同时将vb6转换为vb.net

Question

Public Function fnGetNextMaxNo(ByVal strFieldName As String) As Integer 

    fnGetNextMaxNo = 0 
    Dim adoRs As VbToRecordSet 
    Dim strSql As String = "" 
    Try 
     fnGetNextMaxNo = 1 

     strSql = "select max(" + strFieldName + ") from " + strTableName 
     mstrLastExecutedSql = strSql 
     adoRs.Open(strSql, adoconDb) 
     If Not adoRs.EOF Then 
      If Not IsDBNull(adoRs.Fields(0).Value) Then 
       fnGetNextMaxNo = Convert.toDouble(adoRs.Fields(0).Value) + 1 
      End If 
     End If 

     adoRs.Close() 
     Exit Function 

我想将vb6转换为vb.net，上面的代码第一行显示错误，该语句在名称空间中无效...请帮我

Answer 1

只需更换

Dim adoRs As VbToRecordSet 

与

Dim adoRs As adodb.RecordSet