Visual Basic - Ayuda por favor

Hola quiro saber si alguien me puede ayudar a traducir este codigo de acces a el visual basic 6.0. este codigo es para arrastrar imagenes desde una base de datos cuyo campo no es tipo OLE sino tipo texto y almacena la direccion donde se encuentra la imagen.
Option Compare Database
Option Explicit
Dim path As String

Private Sub AddPicture_Click()
' Utilice el cuadro de diálogo Abrir archivo de Office para obtener el nombre de un archivo que vaya a utilizar
' como la imagen de un empleado.
getFileName
End Sub

Private Sub Form_RecordExit(Cancel As Integer)
' Oculte la etiqueta de mensajes de error para minimizar el parpadeo durante la exploración
' entre registros.
ErrorMsg.Visible = False
End Sub

Private Sub RemovePicture_Click()
' Borre el nombre de archivo para el registro de empleado y muestre la
' etiqueta de mensajes de error.
Me![ImagePath] = ""
hideImageFrame
ErrorMsg.Visible = True
End Sub

Private Sub Form_AfterUpdate()
' Consulte de nuevo el cuadro combinado ReportsTo una vez se haya modificado un registro.
' A continuación, muestre la etiqueta de mensajes de error si no existe ningún nombre de archivo para
' el registro de empleado o muestre la imagen si existe un nombre
' de archivo.
Me![Jefe].Requery
On Error Resume Next
showErrorMessage
showImageFrame
If (IsRelative(Me!ImagePath) = True) Then
Me![ImageFrame].Picture = path & Me![ImagePath]
Else
Me![ImageFrame].Picture = Me![ImagePath]
End If
End Sub

Private Sub ImagePath_AfterUpdate()
' Una vez seleccionada una imagen para el empleado, muéstrela.
On Error Resume Next
showErrorMessage
showImageFrame
If (IsRelative(Me!ImagePath) = True) Then
Me![ImageFrame].Picture = path & Me![ImagePath]
Else
Me![ImageFrame].Picture = Me![ImagePath]
End If
End Sub
Private Sub Form_Current()
' Muestre la imagen para el registro actual del empleado, siempre que la imagen
' exista. Si el nombre de archivo no existe o está en blanco para
' el empleado actual, configure el título de la etiqueta de mensajes de error en el
' mensaje correspondiente.
Dim res As Boolean
Dim fName As String

path = CurrentProject.path
On Error Resume Next
ErrorMsg.Visible = False
If Not IsNull(Me![Foto]) Then
res = IsRelative(Me![Foto])
fName = Me![ImagePath]
If (res = True) Then
fName = path & "\" & fName
End If

Me![ImageFrame].Picture = fName
showImageFrame
Me.PaintPalette = Me![ImageFrame].ObjectPalette
If (Me![ImageFrame].Picture <> fName) Then
hideImageFrame
ErrorMsg.Caption = "No se encuentra la imagen"
ErrorMsg.Visible = True
End If
Else
hideImageFrame
ErrorMsg.Caption = "Haga Click en Añadir/Cambiar para añadir imagen"
ErrorMsg.Visible = True
End If

End Sub

Sub getFileName()
' Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
' para el registro del empleado actual. Si el usuario selecciona un archivo,
' muéstrelo en el control de imagen.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen del empleado"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Nombre].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub

Sub showErrorMessage()
' Muestre la etiqueta de mensajes de error si el archivo de imagen no se encuentra disponible.
If Not IsNull(Me![Foto]) Then
ErrorMsg.Visible = False
Else
ErrorMsg.Visible = True
End If
End Sub

Function IsRelative(fName As String) As Boolean
' Devuelva el valor falso si el nombre de archivo contiene una unidad o ruta de acceso UNC
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)
End Function

Sub hideImageFrame()
' Oculte el control de imagen
Me![ImageFrame].Visible = False
End Sub

Sub showImageFrame()
' Muestre el control de imagen
Me![ImageFrame].Visible = True
End Sub

Gracias

Pues eso esperaba...
que me ayudaran lo mas que pudieran.

ncha!!!:

No pasa nada... aqui estamos para estudiarnos las parrafadas de todos...
¿no tienes mas codigo?... metelo tambien.

Ok gracias por la ayuda