PrivateSub Tu_boton_Click(ByVal sender As System.Object) Handles Tu_boton.Click
Dim Prod AsNew MisProcedimientos.dbo.GetProcesosGuantes(MiConexion.Conexion)
--Esta parte yo la hize mediante un procedure que me hace la consulta que deseo, esto ya es a tu gusto y forma de programar.
If txtTurno.Text = "Lo que quieras "Then --en caso que requieras esto
Prod.ExecuteNonQuery(F1.Value.Date, F2.Value.Date) ' Aqui hago la consulta entre fechas
EndIf
EnviarAExcel("ReporteProcesos.xls")
EndSub
PrivateSub EnviarAExcel(ByVal Archivo AsString)
Try
Me.Cursor = Cursors.AppStarting
Process.Start( _
"\\Servidor\donde esta tu archivo\" & Archivo)
Me.Cursor = Cursors.Default
Catch ex As Exception
MessageBox.Show(" Error en: " & ex.Source & Chr(10) & " Mensaje : " & ex.Message)
EndTry
EndSub