llamar storeprocedure

[odilon]

hola a todos tengo un storeprocedure en SQL S 2000 y tengo visual basic 2005, tengo el siguiente codigo que en teoria manda llamar bien otro storeprocedure, pero al intentar llamar de otra base no manda error pero no lo ejecuta, ya verifique la conexión y está esta bien.

Les pongo el código por que en verdad no encuentro por donde este el error.



Option Explicit On

Imports System.Data.SqlClient

Public Class SP_DifNomina

Private oConn As New Odbc.OdbcConnection
Private SQL_Sicoss As SqlConnection
Private rdo As New DataAccessRDOClass.rClass_DataAccessRDO

Private Sub SP_DifNomina_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txt_Año.Text = Now.Year.ToString
txt_PeriodoNom.Text = 1
txt_CalendarioNom.Text = (Now.Month * 2) - 1
txt_TipoNomina.Text = 1
End Sub

Private Sub Procesar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Procesar.Click
Procesar.Enabled = False
Me.ControlBox = False
Dim ds As New DataTable

Dim dbCommand As New Data.Odbc.OdbcCommand

OpenConnection()

dbCommand.Connection = oConn
dbCommand.CommandTimeout = 0

Try
'OpenConnection()

dbCommand.CommandType = CommandType.StoredProcedure
dbCommand.CommandText = "{call DiferenciasNomina(?,?,?,?)}"
dbCommand.Parameters.Add("@Ano", Odbc.OdbcType.Int).Value = txt_Año.Text
dbCommand.Parameters.Add("@Periodo_ID", Odbc.OdbcType.Int).Value = txt_PeriodoNom.Text
dbCommand.Parameters.Add("@Periodo", Odbc.OdbcType.Int).Value = txt_CalendarioNom.Text
dbCommand.Parameters.Add("@TipoNomina_id", Odbc.OdbcType.Int).Value = txt_TipoNomina.Text

txt_Año.Text = ""
txt_PeriodoNom.Text = ""
txt_CalendarioNom.Text = ""
txt_TipoNomina.Text = ""

Dim numCalc As Integer = dbCommand.ExecuteNonQuery

MsgBox("Diferencia de Nómina Calculada. " & vbCrLf & _
"Calculados " & numCalc & " empleados.", MsgBoxStyle.Information)

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
End Try

CloseConnection()
Procesar.Enabled = True
Me.ControlBox = True
End Sub

Private Sub OpenConnection()
oConn.ConnectionString = "dsn=SandosGestion;uid=" & txt_User.Text & ";pwd=" & txt_pwd.Text & ""
oConn.Open()
End Sub

Private Sub CloseConnection()
If oConn.State = Data.ConnectionState.Open Then oConn.Close()
oConn = Nothing
End Sub

End Class