出现实时错误怎么办啊，我都不会改

Question

Private Sub CmdOK_Click()
'确定操作
    ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;"
    ConnectionString = ConnectionString & "User ID=" & Trim(txtUserId.Text) & ";Password=" & Trim(txtPwd.Text) & ";"
    ConnectionString = ConnectionString & "Initial Catalog=" & Trim(txtDatabase.Text) & ";Data Source=" & Trim(txtServer.Text)
    C重新登录.Show
    Unload Me
   
End Sub

Answer 1

Set myConn = New ADODB.Connection
myConn.ConnectionString = "driver={SQL Server};" & _
"server=SERVERNAME;uid=USERNAME;pwd=password;database=databasename"
myConn.Open

Answer 2

Private Sub CmdOK_Click() 
'确定操作
ConnectString = "driver={SQL Server};" & "server=" & Trim(txtServer.Text) & ";uid=" & Trim(txtUserId.Text) & ";pwd=" & Trim(txtPwd.Text) & ";database=" & Trim(txtDatabase.Text) & ""
    C重新登录.Show 
    Unload Me 
End Sub