Private Sub CreateItemTable
sQuery = "CREATE TABLE items(id TEXT Not Null, name TEXT Not Null, categorie TEXT Not Null, calories TEXT Not Null, protein TEXT Not Null," _
& "roughage TEXT Not Null, fat TEXT Not Null, carbohydrates TEXT Not Null, sugar TEXT Not Null, " _
& "taste TEXT Not Null, import TEXT Not Null, storage TEXT Not Null);"
oDatabase.ExecNonQuery(sQuery)
End Sub