problema al ejecutar un cursor

[elpaisa]

lo que pasa es que tengo un cursor lo tengo demasiado grande por eso no lo pongo

bueno tengo un procedimiento que me ejecuta un cursor y lo llamo desde un aplicativo de escritorio desde VB 2008 ejecuto el procedimiento pero necesito que me envie unos mensajes que tengo el cursor

aca el codigo de mi aplicativo en visual studio


Private Sub btnprocesar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprocesar.Click

diaI = dtpfechainicio.Text
diaF = dtpfechafinal.Text

tipo = Convert.ToString(cmbtipo.Text)
codoper = Convert.ToString(cmbcodigooperacion.Text)

Dim cnn As New SqlConnection

cnn.ConnectionString = "data source= " & cmbservidor.Text & ";" & "database= " & txtbasededatos.Text & ";" & " user= " & txtusuario.Text & ";" & " Password= " & txtcontraseña.Text

Dim obj1 As String
obj1 = "exec dbo.GS_Consolidar_Contabilidad '" + diaI + "','" + diaF + "','" + tipo + "','" + codoper + "'"

Dim cmd1 As New SqlCommand(obj1, cnn)

Try
cnn.Open()
'cmd.ExecuteNonQuery()
cmd1.ExecuteNonQuery()
MsgBox("Operacion ejecutada correctamente")

Catch ex As Exception
MsgBox("error")
MessageBox.Show(ex.Message, _
"Error en la operacion", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
' Por si se produce un error,
' comprobar si la conexión está abierta
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
End Try

End Sub

bueno no se si sera el codigo de VB o el cursor


por cierto trabajo sql server 2008 y visual basic 2008