seleccionar base de datos

[erbuson]

Hola, no se si es exactamente lo que quieres pero ¿ que tal el commondialog ?

Código vb:

Private Sub Form_Load()
  Command1 = True
End Sub
 
Private Sub Command1_Click()
   ' Establecer CancelError a True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' Establecer los indicadores
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' Establecer los filtros
    CommonDialog1.Filter = "Todos los archivos (*.*)|*.*|Archivos de texto" & _
    "(*.txt)|*.txt|Archivos por lotes (*.bat)|*.bat"
    ' Especificar el filtro predeterminado
    CommonDialog1.FilterIndex = 2
    ' Presentar el cuadro de diálogo Abrir
    CommonDialog1.ShowOpen
    ' Presentar el nombre del archivo seleccionado
    MsgBox CommonDialog1.FileName
    Exit Sub
    
ErrHandler:
    ' El usuario ha hecho clic en el botón Cancelar
    Exit Sub
 
End Sub
 

Este es el ejemplo que viene con MSDN pero facilmente lo puedes adaptar a tus deseos.

Simplemento lo he metido en un Command1 y fuerzo en el Load el Command

Si no era esta la pregunta o no es esta la respuesta, ya sabes ....