Nuevo Registro en blanco solo con ID VB6

[erbuson]

Hola, sobre Bases de Datos poco puedo decirte pero desde luego aqui hay otros errores que debes corregir.

En primer lugar estás utilizando String (Cadenas) para operaciones que después vas a utilizar en cálculo, pienso que los tipos no son adecuados.

Dim TickNum As String
Dim tNum As String

En segundo lugar, estas asignando a TickNum una cadena

TickNum = "select max(Id_head_venta) as MaxNum from head_venta"

Esto es lo mismo que si pusieras TickNum = "Nada de nada"

Ahora comparas TickNum si es Nulo, cuando le has asignado previamente el valor a la cadena, al no ser nulo le sumas 1 a tu cadena y provocas el error.

Saludos