Ayuda!!!

Jose Moure Moure
25 de Noviembre del 2003
Bueno lo que me pasa es lo siguiente:
Quiero grabar fotos a una base de datos,se como hacerlo poniendo una ruta fija en el código pero yo quiero que el usuario elija la ruta donde estan las fotos para ello se me ocurrio usar un CommonDialog el cual querria que sirviera para guardar la ruta(lo intente con Showsave pero nada),ya que las fotos quiero que me aparezcan en un filelistbox para ir viendolas en un image y elegir la adecuada pero esto no me lo hace ya que me obliga a elegir un archivo y me lo abre directamente.Bueno este es mi problema,os pongo el código haber si podeis dar con el problema:

Private Sub Lista_fotos_Click()
Imgfoto.Picture = LoadPicture(Lista_fotos.Path + "" + Lista_fotos.FileName)
End Sub

Private Sub Lista_fotos_DblClick()
Txtfoto.Text = Lista_fotos.FileName
Lista_fotos.Visible = False
Cmdbuscar.Enabled = True
Cmdaceptar2.SetFocus
End Sub

Private Sub Cmdbuscar_Click()
Cmdbuscar.Enabled = False
With CD
.DialogTitle = "Búsqueda de fotos"
'.CancelError = True 'Causes error on Cancel
.Filter = "Archivos (*.bmp;*.jpg;*.gif)|*.jpg;*.gif;*.bmp|Todos los archivos (*.*)|*.*"
.FilterIndex = 1
.ShowSave
TxtFileName = .FileName
End With
If TxtFileName = "" Then
Cmdbuscar.Enabled = True
Cmdbuscar.SetFocus
Else
Lista_fotos.Visible = True
Lista_fotos.SetFocus
End If
End Sub

Private Sub Txtfoto_Change()
If Txtfoto.Text = "" Then
Imgfoto.Picture = LoadPicture()
Else
Imgfoto.Picture = LoadPicture(Lista_fotos.Path + "" + Txtfoto.Text)
End If
End Sub

Jose Moure Moure
25 de Noviembre del 2003
Se me olvido poner en Private sub cmdbuscar_click,lista_fotos=txtfilename,va justo despues del ELSE

Espero que alguien me pueda ayudar.Gracias