If dataMgr.FindPix(intID, sImageFile) Then
                nMember.ClassPhoto = Replace(nMember.ClassPhoto, "''", "'")
                .imgClassPhoto.Load(nMember.ClassPhoto) 'error msg about path
                .btnChangePhoto.Text = "&Change Pho&to"
                btnChangePhoto.Font = New Font("arial", 8)
            Else
                .btnChangePhoto.Text = "Add Pho&to"
                btnChangePhoto.Font = New Font("arial", 8)
                .imgClassPhoto.Image = Nothing 'is this the code for having a blank picbox if no pic is in the db?
            End If

    Public Function FindPix(ByVal iID As Integer, ByRef sFile As String) As Boolean
        Dim dr As DataRow
        da = New OleDbDataAdapter
        ds = New DataSet
        da = New OleDbDataAdapter
        If cn.State = ConnectionState.Closed Then cn.Open()
        cmd = New OleDbCommand("SELECT MemberID, ClassPhoto FROM Members WHERE ClassPhoto ='" & sFile & "'", cn)
        da.SelectCommand = cmd
        da.Fill(ds, "Members")
        Try
            For Each dr In ds.Tables("Members").Rows
                With nMem
                    If .ClassPhoto = "" Then
                        cn.Close()
                        Return False
                    Else
                        sFile = .ClassPhoto
                    End If
                End With
                cn.Close()
                Return True
            Next dr
            cn.Close()
        Catch ex As Exception

        End Try
    End Function

                sPath = Application.StartupPath & "\Photos"
                .imgClassPhoto.Load(sPath & "\" & nMember.ClassPhoto)