Ok he estado checando y prolije un poco mas el codifo el tema ahora esta mas dificil porque no me da error pero siempre me muestra el valo 1 en el text6.text.
Les dejo el codigo para que lo chequen:
Código:
Private Sub nvacta_Click()
Dim cont As Integer
Dim mensaje As String
Dim TickNum As String
Dim tNum As Integer
TickNum = "select max(Id_head_venta) as MaxNum from head_venta"
If TickNum = "" Then
tNum = 1
Else
tNum = Str(Val(TickNum) + 1)
End If
Text6.Text = tNum
ya tambie probe crear un adodc con el query dentro, pero me paso exactamente lo mismo no me da mensaje de error pero siempre me da el numero 1, cuando ya agrege un registo con el numero 3, por lo que me deberia dar el numero 4 en el text6.text
P.D.: el query esta correcto porque cuando lo ejecuto desde el MS access me da el valor correcto.