Try this:

1. Create your ADO connection object.
2. Set its Properties.Prompt.Value = 1 ' adPromptAlways
3. Open your Connection object

An appropriate form will open up asking for the relevant/missing information.

Sub aa()
Set adoc = CreateObject("ADODB.Connection")
adoc.Properties("Prompt").Value = 1
adoc.Open
End Sub