Info cuervo quiero agradecerte por tu apoyo, espero q tengas paciencia.
Mira,cuando ejecuto el programa me sale el listado de todos mis registros, pero yo necesito solo un registro (el seleccionado desde el txtbox) por cada impresion.

creo q mi problema esta en el el cargado de mi data set
tengo este query
------------------------------------------------------------------

SELECT dbo.operacion.cod_op, dbo.operacion.cod_pat, dbo.equipo.descripcion, dbo.Materiales.descripcion AS Expr1, dbo.mov_material_operacion.cantidad,
dbo.operacion.descripcion AS Expr2
FROM dbo.dependencia INNER JOIN
dbo.equipo ON dbo.dependencia.cod_dep = dbo.equipo.cod_dep INNER JOIN
dbo.marcas ON dbo.equipo.cod_marca = dbo.marcas.cod_marca INNER JOIN
dbo.Materiales ON dbo.marcas.cod_marca = dbo.Materiales.cod_marca INNER JOIN
dbo.mov_material_operacion ON dbo.Materiales.cod_mat = dbo.mov_material_operacion.cod_mat INNER JOIN
dbo.operacion ON dbo.equipo.cod_pat = dbo.operacion.cod_pat AND dbo.mov_material_operacion.cod_op = dbo.operacion.cod_op INNER JOIN
dbo.servicios ON dbo.equipo.cod_serv = dbo.servicios.cod_serv INNER JOIN
dbo.tecnicos ON dbo.operacion.id_tecnico = dbo.tecnicos.id_tecnico


-----------------------------------------------------------------------

Al parecer estoy no estoy haciendo lo correcto
mira en mi form1 tengo este codigo
-----------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim dt As New DataTable
Dim cmd As New SqlCommand
Dim reporte As New cryotm
'Public Con As New SqlConnection("Integrated Security=TRUE;Data Source=(Local);Initial Catalog=Mantenimiento")
'Public strConexion As String = " data source=(local);initial catalog=Mantenimiento;Integrated security=SSPI"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

dt.Clear()
'Dim conn As String = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=nombre_base;Password=contraseña;Data Source=cadena"
'Con = New oledbconnection(conn)
Dim Con As New SqlConnection("Integrated Security=TRUE;Data Source=(Local);Initial Catalog=Mantenimiento")
Dim strConexion As String = " data source=(local);initial catalog=Mantenimiento;Integrated security=SSPI"
cmd.Connection = Con


'My.Forms.Form2.cryviewer.ReportSource = reporte
'My.Forms.Form2.cryviewer.Refresh()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd.CommandText = "SELECT dbo.operacion.cod_op, dbo.operacion.cod_pat, dbo.equipo.descripcion, dbo.Materiales.descripcion AS Expr1, dbo.mov_material_operacion.cantidad,dbo.operacion. descripcion AS Expr2 FROM dbo.dependencia INNER JOIN dbo.equipo ON dbo.dependencia.cod_dep = dbo.equipo.cod_dep INNER JOIN dbo.marcas ON dbo.equipo.cod_marca = dbo.marcas.cod_marca INNER JOIN dbo.Materiales ON dbo.marcas.cod_marca = dbo.Materiales.cod_marca INNER JOIN dbo.mov_material_operacion ON dbo.Materiales.cod_mat = dbo.mov_material_operacion.cod_mat INNER JOIN dbo.operacion ON dbo.equipo.cod_pat = dbo.operacion.cod_pat AND dbo.mov_material_operacion.cod_op = dbo.operacion.cod_op INNER JOIN dbo.servicios ON dbo.equipo.cod_serv = dbo.servicios.cod_serv INNER JOIN dbo.tecnicos ON dbo.operacion.id_tecnico = dbo.tecnicos.id_tecnico"
da = New SqlDataAdapter(cmd)
da.Fill(dt)
reporte.SetDataSource(dt)
reporte.Refresh()

reporte.SetParameterValue("codigoOtm", Me.TextBox1.Text)
My.Forms.Form2.cryviewer.ReportSource = reporte
My.Forms.Form2.cryviewer.Refresh()
My.Forms.Form2.Show()




End Sub
End Class
-------------------------------------------
Espero me entiendas.

__________________
viko