Convert to ADO PLS PLS PLS

[Beerman3436]

Can someone help me convert this code to ADO form DAO please?


Function GetPermissions()

Dim TheDb As Database
Dim TheTable As Recordset
Dim TheForm As Form
Dim TheGroup As String
Dim TheUser As String

TheUser = "Username = '" & CurrentUser() & "'"
Set TheDb = DBEngine.Workspaces(0).Databases(0)
Set TheTable = _ TheDb.OpenRecordset("UserGroupList", dbOpenDynaset)
TheTable.FindFirst TheUser
TheGroup = TheTable.Groupname

If TheGroup = "Admins" Then
If Isloaded("FrmMainMenu") Then
Set TheForm = Forms![FrmMainMenu]
TheForm.Add.Enabled = True
TheForm.AddRequestor.Enabled = True
End If
GetPermissions = True
End Function

 

[dcx693]

Since you said please....

Here is a rough translation:

Function GetPermissions()

Dim TheTable As ADODB.Recordset
Dim TheForm As Form
Dim TheGroup As String
Dim TheUser As String

TheUser = "Username = '" & CurrentUser() & "'"
Set TheTable = New ADODB.Recordset
Set TheTable.ActiveConnection = CurrentProject.Connection

TheTable.Open "UserGroupList", , adOpenDynamic
TheTable.Find TheUser
TheGroup = TheTable.Groupname

If TheGroup = "Admins" Then
If IsLoaded("FrmMainMenu") Then
Set TheForm = Forms![FrmMainMenu]
TheForm.Add.Enabled = True
TheForm.AddRequestor.Enabled = True
End If
GetPermissions = True
End Function

 

[Beerman3436]

Convert to ADO

Thank you very much.