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

Question

Я делаю переднее приложение в VB. Back-end - это 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

проверки rscat.RecordCount = -1 В принципе, изменение

If rsCat.EOF = rscat.BOF Then 

в

If rsCat.RecordCount=-1 Then