ADO Help

[Gary.Lowe]

Dear All

I am having a few problems creating tables using ADO

I get the following error -2147217900 : Syntax error in field definition.

here is the code to create the database

    '\\Create Database
    adoCat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\LogFileCheck.mdb;")

The database creation works fine

It is when I try to create a table as follows

Public Function bfn_ADOCreateTable(ByVal sSQL As String) As Boolean
On Error GoTo ErrErrADOCreateTable
    
    cn.Open adoCat.ActiveConnection '\\Set the connection
    cn.Execute sSQL
    bfn_ADOCreateTable = True    '\\Table creation successful

Exit_ErrADOCreateTable:    '\\Exit routine
    Exit Function
    
ErrErrADOCreateTable: '\\Error Routine
    Select Case Err
        Case Err
            For Each objErr In cn.Errors    '\\Check errors in ADO
                If strError = "" Then
                    strError = objErr.Number
                    strError = strError & " : " & objErr.Description
                Else
                    strError = strError & vbCrLf
                    strError = objErr.Number
                    strError = strError & " : " & objErr.Description
                End If
            Next
                        
            If strError = "" Then   '\\Check general errors
                strError = Err.Number & " : " & Err.Description
            End If
            
            Err.Clear
            cn.Errors.Clear
            bfn_ADOCreateTable = False     '\\Table creation failed
            Resume Exit_ErrADOCreateTable
    End Select
End Function

This is the point the error occurs. The error occurs on the

    cn.Execute sSQL

part of the code in the table creation function.

The SQL is as follows

CREATE TABLE tblHeader (ID AUTOINCREMENT CONSTRAINT HeaderID PRIMARY KEY, type INTEGER,flags INTEGER,modifiers INTEGER,till INTEGER,seqno INTEGER,when INTEGER,oper INTEGER,trans INTEGER);

I have tried to run this SQL by copying the SQL directly into an access query and running it. The table is created with no problems.

As soon as I run it in VB I get the error.

Can you help?

Thanks

[monte96]

Post the SQL. That's where the error is.

[Gary.Lowe]

Thanks monte96 but I've Sussed it

I have now precceded all the field names with fld_(field name)
and it worked.

One of the fields must have been a reserved word in ADO.