Visual Basic para Aplicaciones - Prompt de conexion

Buenos días chic@s, necesito ayuda, estoy haciendo un programita basado en access y vba, la cuestion es que tengo esta lineas de codigo

' Assign the connection string to a variable.
Set ws = CreateWorkspace("odb", "admin", "", dbUseODBC)

' Create the Connection object.
' Set conn = New Connection

'Assign the connection string and provider, then open the connection.
With conn
.ConnectionString = strConn
.Provider = "MSDASQL"

.Properties("Prompt") = 1
conn.ConnectionString = "Provider=MSDASQL.1;Password=pru.uat.01;Persist Security Info=True;User ID=pruebas;Data Source=CLARCON"

.Open strConn

.....(aqui continua el codigo)

Mi pregunta es el prompt me sigue saltando para que le pulse a elegir tanto la conexion como para aceptar el usuario, hay alguna manera de que no salga y se pulse solo, o en su defecto que haga un evento como si pulsara la tecla enter en ambos casos??

Gracias
Un saludo