如何解决代码转换问题？

Public Function SaveCommentsTreeComments(ByRef f As System.Windows.Forms.Form) As Integer
    Dim IsNewSubComment As Boolean
    Dim IsNewCommentWithSub As Boolean
    Dim sql As String
    Dim rs As New ADODB.Recordset
    Dim CommentID As Short
    Dim SubCommentID As Short
    Dim Index As Short
    'WMB 1/28/2004 nextval
    Dim cSql As String
    Dim cRs As New ADODB.Recordset
    Dim cSeq As Double

    On Error GoTo SaveCommentsTreeCommentsError

    SaveCommentsTreeComments = -1

    If Not ValidateCommentsTreeComments(f) Then
        SaveCommentsTreeComments = -2
        Exit Function
    End If


    If f.CommentsText(CommentsTextAbbreviation).Enabled And f.CommentsText(SubCommentsTextDescription).Enabled Then
        IsNewCommentWithSub = False
Public Function SaveCommentsTreeComments(ByRef