Problema con Store Procedure VB2010 express

[Jamsito]

Codigo para llamar el store procedure:

Dim conexionODBC7 As New OdbcConnection
Dim cadenaConexion As String = ("dsn=" & varGlobalServer & ";uid=" & varGlobalUsuario & ";pwd=" & varGlobalContrasena & ";")
conexionODBC7.ConnectionString = cadenaConexion
conexionODBC7.Open()
Dim comandoODBC7 As OdbcCommand = New OdbcCommand("exec inve_actualiza_compras4 1,12345678", conexionODBC7)

comandoODBC7.ExecuteNonQuery()
MsgBox("Termino con Exito")
conexionODBC7.Close()