用sql2000作数据库，如何使用VB添加用户，须具体程序，多谢各位高手了

Question

LTrim、RTrim与 Trim 函数
      返回 Variant (String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。语法LTrim(string)RTrim(string)Trim(string)必要的 string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。'创建用户
Public Sub CreateUser(UserName As String, Login As String)
    Dim Sql As String
    
    Sql = "if not exists (select * from master.dbo.syslogins where loginname = N'" & UserName & "') " _
        & "BEGIN " _
        & "declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'" & DataName & "', @loginlang = N'us_english' " _
        & "if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb) " _
        & "select @logindb = N'master' " _
        & "if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> 
N'us_english') " _
        & "select @loginlang = @@language " _
        & "exec sp_addlogin N'" & UserName & "', '" & Login & "', @logindb, @loginlang " _
        & "End"
    Conn.Execute Sql
    Conn.Execute "exec sp_addsrvrolemember N'" & UserName & "', sysadmin"
End Sub