Dúvida Com Banco De Dados (vb6)

[ryu]

Estou desenvolvendo uma apliacção que usa um banco de dados .mdb, no aplicativo existe controles para adicioar e apagar entradas da tabela. Mas quando eu clico em "apagar" sem nenhum dado carregado, ele me retorna esse erro: No current Record

Segue o bloco:

Private Sub cmdApagar_Click()

If MsgBox("Tem certeza que deseja excluir esse registro?", vbYesNo, "Apagar Registro") = vbYes Then

Dados.Recordset.Delete

Dados.Refresh

End If

End Sub

Teria como eu colocar um IF "se o banco de dados estiver vazio" faça ??

Grato desde já.

[Luiz Humberto]

Faz assim:

If MsgBox("Tem certeza que deseja excluir esse registro?", vbYesNo, "Apagar Registro") = vbYes Then
   if Recordset.RecordCount=0 then
     Msgbox ("Não há registros para serem excluídos")
     Exit Sub
   else
     Dados.Recordset.Delete
     Dados.Refresh
   end if
end if 

Obs:Lembrando que quando fizer as operações de Delete e Update é aconselhável fazer o Update.