Sql SELECT to variable

[NejcZ]

Hi everyone
I have pdata value as string:

Dim pdata(0 To 29) As String

For the last value (ID), I want my program to calculate next suitable number. Next ID should be 1 greater then the last one in SQL database, so my SQL query is:

SELECT TOP 1 MAX(VAL(ID)) + 1

That gives me the number I need.
How do I get this value to variable? And then assign it to pdata variable for sending it to database along with my other fields (pdata stands for parsed data )

pdata(29) = sql query??

I've tried some options, but could not get it to work. Any ideas?
Thanks!

[June7]

Is your 'code' the SQL syntax of query object?

Saving calculated data is usually a bad idea. Why do you need to save this value to table? Are you trying to generate a unique ID?

Why have you declared the variable with (0 To 29)? I've never seen that.

What exactly are you trying to accomplish?

[NejcZ]

AutoNumber system does not work for me, so I want just a simple line of code, that generates next ID.
0-29 pdata variables is for parsed data, I have 28 lines which I parse using RegEx, and 1 for ID. I'm not even sure what is the right way, so basicly what I need to do is:
-get last ID value from my database
-add 1 to that value
-save new value back to database along with other new data (new entry in database)

So you're right. I want to calculate unique ID, which is for 1 grater than last ID.

[June7]

What do you mean by 'sending it to database along with my other fields'?

Are you doing data entry with a form?

Is this a multi-user db?

If not, can try textbox DefaultValue property:

DMax("ID", "tablename") + 1

[NejcZ]

I'm doind data entry from file. I use RegExp to parse data I need and save it to database. So far, I was setting ID by hand, but becouse I want some numbers to auto-generete depending on ID, i realy need this to be done automaticly. Database is used by only 1 person at the time.

Top work! Just tried your suggestion and works a treat
If anyone is looking for solution:

Dim MyValue As String
    MyValue = DMax("ID", "Garancije") + 1
    
    pdata(29) = MyValue