Private Sub AddUserField()
Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
Set oUserFieldsMD = oCompany.GetBusinessObject(oUserFields)
oUserFieldsMD.TableName = "ORDR" '// Sales Order table
oUserFieldsMD.Name = "SO_UserField1"
oUserFieldsMD.Description = "A user field"
oUserFieldsMD.Type = db_Alpha '// am alphanumeric type
oUserFieldsMD.EditSize = 20
oUserFieldsMD.Add
End Sub