Индексы в DBf

[AsDev]

При работе с Бд в формате DBF через ADO ,вылазеет сообщение,что необходимо создать индекс.Пытаюсь создать индекс:

Код: Выделить всё

Dim C As New Command, R As Recordset, Con As New Connection

  Con.ConnectionString = "Provider=MSDASQL;Data Source=Ôàéëû dBASE;Initial Catalog=c:\test"
  Con.Open

  C.ActiveConnection = Con

  C.CommandText = "CREATE INDEX IND ON base(FIO)"

Но при попытке выполнить SQl запрос появляется сообщение-"Вызванный объект был отключен от клиентов".Помогите ,плиз