Как вставить поле данных в пустую таблицу

Question

Я делаю внешнее приложение в VB. Серверная часть - это Oracle. Я хочу автоматически сгенерированный идентификатор по нажатию кнопки «Создать». Это работает хорошо, если данные присутствуют в таблице, но показывает ошибку, если таблица пуста. Что мне нужно вставить, чтобы оно работало при первом использовании приложения? Мой код кнопки выглядит следующим образом:

Private Sub cmd_new_Click()
Call txt_clear
txt_name.Enabled = True
Set rsCat = New ADODB.Recordset
rsCat.Open "Category", conn, adOpenDynamic, adLockPessimistic

If rsCat.EOF = rscat.BOF Then
    tempId = 1000
Else
    rsCat.MoveLast
    tempId = rsCat.Fields("Category_Id") + 1
End If

txt_Id = tempId
cmd_Save.Enabled = True
cmd_new = False

End Sub 

Answer 1

check rscat.RecordCount = -1 В основном, изменить

If rsCat.EOF = rscat.BOF Then

до

If rsCat.RecordCount=-1 Then