Here is a short piece of code that demonstrates how to code for RetrieveGlobals9.dll in Dynamics GP
Private Sub NextCust_Changed()
If Me.CustomerID.Value > "" Then
MsgBox "The Customer Number Field must be empty"
Exit Sub
End If
Dim cmd
Dim rst
Set userinfo = CreateObject("RetrieveGlobals9.retrieveuserinfo")
Set conn = userinfo.Connection
'Create an ADO command object.
Set cmd = CreateObject("ADODB.Command")
'set the database to the currently logged in db.
conn.DefaultDatabase = userinfo.intercompany_id()
cmd.ActiveConnection = conn
cmd.CommandType = 4 'adCmdStoredProc
'Get the next cust number
cmd.CommandText = "_4P_SOPgetNextCustomerNumber"
Set rst = cmd.Execute
If Not rst.EOF Then
Me.CustomerID.Value = rst("vchrCustomerNumber")
End If
'Close the connection.
If conn.State = 1 Then
conn.Close
End If
'Cleanup.
Set cmd = Nothing
Set cn = Nothing
End Sub