Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a Group Account with SQL command

Sub CreateGroupAccount()     Dim conn As ADODB.Connection     On Error GoTo ErrorHandler     Set conn = CurrentProject.Connection     conn.Execute "CREATE GROUP YourGroupN asdf" ExitHere:     If Not conn Is Nothing Then         If conn.State = adStateOpen Then conn.Close     End If     Set conn = Nothing     Exit Sub ErrorHandler:     Debug.Print Err.Number & ":" & Err.Description     Resume ExitHere End Sub