А можно извратиться и использовать SQL-DMO. Примерно вот так:

Sub DMOAddLoginDemo()

Dim oSQLServer As New SQLDMO.SQLServer
Dim oLogin As New SQLDMO.Login
oSQLServer.LoginTimeout = 30
oSQLServer.Connect "Server", "sa", "password"
oLogin.Name = "w_test"
oLogin.Database = "Northwind"
oLogin.Type = SQLDMOLogin_Standard
oSQLServer.Logins.Add oLogin
oLogin.SetPassword "", "test"
oSQLServer.Disconnect
End Sub