convert as below code to vb.net

Kosal

Dear All

Can you help me to convert as below code to vb.net module

Expand|Select|Wrap|Line Numbers

 Function GF_ListGroupsOfUser(ByVal stUserName As String) As String

        On Error GoTo err_ListGroupsOfUser

        Dim cnn As ADODB.Connection

        Dim Rst As New ADODB.Recordset

        Dim st As String
 
        cnn = CurrentProject.Connection
 
        st = "SELECT g.guName FROM tblGroupUser AS g INNER JOIN tblGroupUser AS u ON g.guID = u.guGroupID " & _

             "WHERE u.guLevel = 2 AND u.guName = " & Chr(34) & stUserName & Chr(34)

        Rst.Open(st, cnn, adOpenKeyset, adLockOptimistic)

        If Rst.RecordCount > 0 Then

            GF_ListGroupsOfUser = Trim$(Rst(0))

        End If
 
Err_Exit:

        Rst = Nothing

        cnn = Nothing

        Exit Function
 
err_ListGroupsOfUser:

        MsgBox(Err.Description)

        Resume Err_Exit

    End Function

thanks
Best Regard

kenobewan

Suggest that you find a converter...

Kosal

Quote:

Originally Posted by kenobewan

Suggest that you find a converter...

Ok sir

Thanks
Best Regard

convert as below code to vb.net

re: convert as below code to vb.net

re: convert as below code to vb.net

Similar .NET Framework bytes

/bytes/development

/bytes/it

/bytes/about