Sub CrearUsuarioSQL()
Dim conn As ADODB.Connection
Dim strSQL As String
'Cadena de conexión al servidor SQL Server
'Asegúrate de reemplazar "Servidor", "Usuario" y "Contraseña" con los valores adecuados
Dim strConexion As String
strConexion = "Provider=SQLOLEDB;Data Source=Servidor;User ID=Usuario;Password=Contraseña;"
'Nombre del nuevo usuario que deseas crear
Dim nuevoUsuario As String
nuevoUsuario = "NuevoUsuario"
'Contraseña para el nuevo usuario
Dim nuevaContraseña As String
nuevaContraseña = "NuevaContraseña"
'Crea una nueva conexión al servidor SQL Server
Set conn = New ADODB.Connection
conn.ConnectionString = strConexion
conn.Open
'Crea el comando SQL para crear el usuario
strSQL = "CREATE LOGIN " & nuevoUsuario & " WITH PASSWORD = '" & nuevaContraseña & "';"
'Ejecuta el comando SQL para crear el usuario
conn.Execute strSQL
'Cierra la conexión
conn.Close
Set conn = Nothing
MsgBox "Usuario creado correctamente.", vbInformation
End Sub