Puedes hacerlo mediante DAO, ADO, MSRDC o cualquier tipo de conección COM. Solo tienes que agregar la referencia a la base de datos, y utilizarlo!
Este código funcionaría usando DAO:
Código:
Public Sub PruebaDB()
Dim ADataBase As Database
Dim AWorkspace As Workspace
Set AWorkspace = CreateWorkspace("WrkPart", "Admin", "", "")
Set ADataBase = AWorkspace.OpenDatabase("", False, False, "ODBC;DSN=DNSOracle;UID=Usuario;PWD=Password;ConnectString=MiBase;")
ADataBase.Execute "CREATE USER..."
End Sub