Expected query name after execute

[Bmxpert]

I want to make a querie wich alters my table like this:

Dim cmd As New OleDb.OleDbCommand

cmd.CommandText = "ALTER TABLE Crawford_nl ADD COLUMN [Index] COUNTER PRIMARY KEY"

cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = Me.OleDbConnection1 '
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(Err.Number & ":" & Err.Description)
End Try

I get the error message:
"Expected query name after EXECUTE"

When I do the same, but change 'OleDb' to 'Odbc', it works, but I want to do it with OleDb.

Can anyone help me?

[RichardAtherton]

this code works:

SqlStr = "Delete from SystemValues"
Dim SystemValues As New OleDbCommand(SqlStr, myConnection)
SystemValues.Connection.Open()
SystemValues.ExecuteNonQuery()
myConnection.Close()