Я пытаюсь добавить автоматизировать пароль для этого кода, используя VBA

Когда я нажимаю run, я получаю всплывающее окно с просьбой указать имя пользователя, пароль и сервер. Я уже помещал эту информацию в некоторые ячейки excel, но Idk, где я могу добавить пароль.

dataName = (Range("dataName").Value) passWord = (Range("password").Value) serverName = (Range("server").Value) queryName = (Range("Query").Value) dbConnectStr = "Provider=msdaora;User Id=" & Uname dbConnectStr1 = "Provider=msdaora;User Id='" & dataName & "' ;Data Source='" & serverName & "'" objmyconn.ConnectionString = dbConnectStr & dbConnectStr1 objmyconn.Properties("Prompt") = adPromptAlways objmyconn.Open dbConnectStr 'ConnectionString' 'Declare variables' 'Set objmyconn = New ADODB.Connection Set Sql = New ADODB.Command Set ds = New ADODB.Recordset Dim strsql As String Dim fld As ADODB.Field Dim i As Long i = 2 

Вы добавляете его в свою строку подключения в качестве параметра Pwd= . Код будет выглядеть так:

 dataName = (Range("dataName").Value) Password = (Range("password").Value) serverName = (Range("server").Value) queryName = (Range("Query").Value) dbConnectStr = "Provider=msdaora;User Id=" & Uname dbConnectStr1 = "Provider=msdaora;User Id='" & dataName & "' ;Data Source='" & serverName & "'" & "' ;Pwd='" & Password & "'" objmyconn.ConnectionString = dbConnectStr & dbConnectStr1 objmyconn.Properties("Prompt") = adPromptAlways objmyconn.Open dbConnectStr 'ConnectionString' 'Declare variables' 'Set objmyconn = New ADODB.Connection Set Sql = New ADODB.Command Set ds = New ADODB.Recordset Dim strsql As String Dim fld As ADODB.Field Dim i As Long i = 2 
Давайте будем гением компьютера.