Visual Basic - Imagen en registro de Vb 6.0

Private Sub btguardar_Click(sender As Object, e As EventArgs) Handles btguardar.Click

        ' usaremos la cadena de conexion 

        Using conn As New SqlConnection("Data Source=tuservidor\SQLEXPRESS;Initial Catalog=tubasdedatos;Integrated Security=true")

            conn.Open()

            Dim query As String = "INSERT INTO clientes (numcliente,nomcliente,direccion,fechaalta,rfoto) VALUES (@numcliente,@nomcliente,@direccion,@rfoto)"

            '"INSERT INTO pedido (nombre de dato en la tabla) VALUES (@con el arroba asignamos el dato de la columna y nombre)"

            Dim cmd As New SqlCommand(query, conn)

            Try

                cmd.Parameters.Clear()

                cmd.Parameters.AddWithValue("@numcliente", txtnumcliente.Text)

                cmd.Parameters.AddWithValue("@nomcliente", txtnombrecliente.Text) 'agrega la fecha del label fecha a la base de datos

                cmd.Parameters.AddWithValue("@direccion", txtdireccion.Text)

                cmd.Parameters.AddWithValue("@fechaalta", txtfechaalta.Text)

               cmd.Parameters.AddWithValue("@rfoto", lbruta.Text)

                cmd.ExecuteNonQuery()

                MessageBox.Show("CLIENTE GUARDADO CORRECTAMENTE") ' si los datos fueron guardados mandara este mensaje 

            Catch ex As Exception

                MessageBox.Show("ERROR AL INGRESAR LOS DATOS") 'si los datos no fueron guardados mandara este mensaje

            Finally

                conn.Close()

            End Try

        End Using

If My.Computer.FileSystem.FileExists("\\tuip\documentos\imagenes\076586.jpg) Then

                'si true ruta de foto manda la foto y bloquea los datos (primero checa que exista el documento

                frmaltacliente.Picturecapturar.Image = Image.FromFile("\\tuip\documentos\imagenes\076586.jpg") 'trae la foto de la ruta 

                frmaltacliente.Picturecapturar.SizeMode = PictureBoxSizeMode.StretchImage 'ajusta la foto al picture box

            Else

                MsgBox("NO HAY FOTO EN LA RUTA")

                frmaltacliente.Picturecapturar.Image = Nothing

            End If