ciao questo codice che non sono riuscito a inserire nei code, permette ad un tasto di richiamare la funzione mostrarecordcorrente,io vorrei sapre come va fatta una funzione per visualizzare in anteprima con un crystalrep fatto i risultati di una query e poi con un tasto stampa visualbasic.net di visualstudio



Private Sub trova_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trova.Click
m_rstContatti.MoveFirst()
Do Until m_rstContatti.EOF

If m_rstContatti.Fields("ContactName").Value = Trim(trovato.Text) Then

Call MostraRecordCorrente()
Exit Do
Else
Dim a As Integer
a = InStr(m_rstContatti.Fields("ContactName").Value, Trim(trovato.Text))
If Not (a = 0) Then

Call MostraRecordCorrente()
Exit Do
End If
End If
m_rstContatti.MoveNext()
Loop

End Sub