Ok ya me corrio por si alguien le ocurre lo mismo aqui esta la solucion conjunto a la ayuda de Aquaventus
Cita: Dim comandoODBC As OdbcCommand = New OdbcCommand("{call sp_Alta_COMPRAS_ENC2 (?,?,?) }", conexionODBC)
comandoODBC.Parameters.Add("@CODIGO_TIPO_COMPRA", OdbcType.Int).Value = 93
comandoODBC.Parameters.Add("@CODIGO_DE_COMPRA", OdbcType.Int).Value = 1
comandoODBC.Parameters.Add("@FECHA_COMPRA", OdbcType.SmallDateTime).Value = Convert.ToDateTime(mtbFecha.Text)
conexionODBC.Open()
comandoODBC.ExecuteNonQuery()
MessageBox.Show("Ingresado con exito")
conexionODBC.Close()
donde mtbFecha es un MaskedTextbox donde guardo la fecha
Saludos