Visual Basic - Compactar BD SQL

Hola!! Estoy compactando mi BD que está en SQL Server
Tengo este código

Dim S As SQLDMO.SQLServer
Set S = New SQLDMO.SQLServer
With S
.Connect "servidor", "sa", "password"
.Databases("basededatos").Shrink 0, SQLDMOShrink_TruncateOnly
.Disconnect
End With
Set S = Nothing

Quiero saber si hay alguna manera de que se le abra al usuario algo así como un explorador o un "Abrir Conexión" para que él seleccione el servidor e ingrese usuario, password y nombre de bd..
Porque si no, tengo que meter esa información directamente en el código y como mi aplicación funciona para varios clientes, tendría que estar cambiando esta parte del código
Saben si se puede? Espero haberme explicado bien

Gracias.. saludos !!! =)

Por que no tomas el diseño de la Pantalla del Asistente para Importacíón/exportación con DTS???del Administrador Corporativo, ahi te muestra seleccionar el Servidor, capturar el Nombre del Usuario y Contraseña y seleccionar la Base de Datos.