[Resolvido]Criar user no sql server com vba

Olá
Tem como criar user no sql server via vba, em que eu colocava num formulário access o username e ele criaria esse login no sql server?
Não será necessário senha pois os logins são iguais aos logins de rede
Cumprimentos
Rui

Olá,

Não sei se poderá ajudar, mas talvez por linha de comando:

http://msdn.microsoft.com/pt-BR/library/ms180944.aspx

http://www.educoutinho.com.br/desenvolvimento/sql-server/executar-script-sql-server-via-linha-de-comando/

Obrigado pelas dicas ahteixeira

Resolvi com este código:
Dim strConnString As String
Dim oConn As New ADODB.Connection
On Error GoTo ErrorHandler
strConnString = "Provider=SQLOLEDB;"
strConnString = strConnString & "User ID=sa;password=xxxxxxx;"
strConnString = strConnString & "Initial Catalog=" & _
Database & ";"
strConnString = strConnString & "Data Source=nomeservidor\SQLEXPRESS,1433;"
strConnString = strConnString & "Use Procedure for Prepare=1;"
strConnString = strConnString & "Auto Translate=True;"
strConnString = strConnString & "Packet Size=4096"
oConn.Open strConnString
oConn.Execute "EXEC sp_grantlogin '" & UserNT & "'"
oConn.Execute "USE nomebasedados"
oConn.Execute "EXEC sp_adduser '" & UserNT & "'"
oConn.Execute "EXEC sp_addrolemember 'db_datareader', '" & "UserNT & "'"
oConn.Execute "EXEC sp_addrolemember 'db_datawriter', '" & UserNT & "'"
AddUserTOSQLServer = True
ErrorHandler:
If oConn.State <> 0 Then
oConn.Close
End If
Set oConn = Nothing

Olá,

Obrigado pelo retorno.