Como hago para poner un boton agregar imágenes en visual basic

Cerrado
Denunciar
Message postés
1
Date d'inscription
martes, 11 de junio de 2013
Estatus
Miembro
Última intervención
martes, 11 de junio de 2013
-
Estoy intentando hacer un programita para llenar y ver datos de una base de datos a base de accses y visual basic y quiero que incluya almacenar imagenes, ya tengo hecho mas o menos el código pero no me funciona. acepto cualquier ayuda gracias

aqui les dejo lo q mas o menos tengo

segun tengo q crear la variable que iri asi pero no se con que comando

Private CommonDialog1 As

luego el codigo

Private Sub Command7_Click()
On Error Resume Next
With CommonDialog1 (aqui es donde tengo el problema asi como esta ya sea con dim o private el boton queda infuncional no hace nada si lo modifico me tira errores )

.DialogTitle = " Seleccionar imagen"
.Filter = "BMP|*.bmp|JPEG|*.jpeg|GIF|*.gif|JPG|*.jpg|Todos|*.*"
.ShowOpen
If .FileName = "" Then
Exit Sub
Else
'Carga en nombre el path donde se ejecuta el programa, el directorio especificado
'y el nombre y la extensión de la imagen seleccionada.
Dim nombre As String: nombre = App.Path & "\imagenes\" & .FileTitle
'Copia la imagen seleccionada en el cuadro de dialogo en el lugar que dice la variable -nombre-
Call FileCopy(CommonDialog1.FileName, nombre)
'actualiza el campo -foto- con el valor de la variable -nombre-
rst!foto = nombre
'actualiza el picture1 con la nueva imagen seleccionada.
Call cargar_Imagen(Picture1, nombre)
End If
End With
End Sub