Private Sub cmdShowReport_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\DataReport.mdb"
    .Open
End With
With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "SELECT * FROM tblPeople Where LastName = '" & txtFrom.Text & "' and FirstName='" & txtFrom1.Text & "'"
End With
If rs.RecordCount >  0  Then
    Set DataReport1.DataSource = rs
    DataReport1.Sections("Section4").Controls("lblRHeader").Caption = "Отчет по сотруднику " & txtFrom
    DataReport1.Show  1 
    frmImage.Picture1 = LoadPicture(rs.Fields("Image").Value)
    frmImage.Show
    If rs.State = adStateOpen Then rs.Close
    If cn.State = adStateOpen Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
Else
  MsgBox "Запись не найдена!Сделайте новую запись!"
    If rs.State = adStateOpen Then rs.Close
    If cn.State = adStateOpen Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
End If

End Sub

If Dir(rs.Fields("Image").Value) <> "" Then
        frmImage.Picture1 = LoadPicture(rs.Fields("Image").Value)
        frmImage.Show
End If