Visual Basic - ayuda con un Datereport Urgente¡¡¡¡¡¡

Hola espero que me puedan ayudar mi problema es que tengo un form con un datagrid donde te muestra todas los medicamentos de un paciente d ela siguiente forma:
Fecha, no. expediente, importe, id_producto y nombre_producto,

Tengo un datereport donde muestra los datos de este grid... Hasta ahi todo esta bien¡¡¡ el problema es cuando quiero que el datareport muestre los datos del paciente, ya que estos datos estan en otra tabla (pacientes), mi peticion es... Puedo agragar en el encabezado del datereport alguna etiqueta que me permita conectarme con la tabla paciente???? O
como involucrar a las dos tablas en un mismo reporte (intente hacerlo con un DataEnvironment pero no lo actualiza y me muestra todossssss los pacientes q tengo y yo solo quiero que imprima 1)... Aqui les muestro el codigo que utilizo para mi reporte

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Command1_Click()

If rs Is Nothing Then Exit Sub
If rs.State = adStateOpen Then
Set DataReport3.DataSource = rs
DataReport3.Show vbModal, Me
End If
End Sub

Private Sub Command2_Click()

Set rs = cn.Execute("SELECT * FROM dia_cama")
Set MSHFlexGrid1.DataSource = rs
Me.Caption = "Registros encontrados: " & CStr(rs.RecordCount)
End Sub

Private Sub Form_Load()
Call Conectar
End Sub

Sub Conectar()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient
cn.CursorLocation = adUseClient
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "servimaster.mdb", , "dia_cama"

End Sub

Sub Desconectar()

If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
If Not cn Is Nothing Then
If cn.State = adStateOpen Then cn.Close
Set cn = Nothing
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Desconectar
Set report_1 = Nothing
End Sub

Public Sub Text1_Change()

Set rs = cn.Execute("SELECT * FROM dia_cama WHERE no_expediente Like '%" & Text1.Text & "%'")
Set MSHFlexGrid1.DataSource = rs
Me.Caption = "Registros encontrados: " & CStr(rs.RecordCount)

End Sub