Visual Basic - eof y bof

mi problema es el siguiente: tengo una base de datos qno se si esta vacia o llena y tengo que meter los datos dependiendo de un campo de la tabla que los numera..

Dim rs_clave As New ADODB.Recordset 'este rs contendra el campo id mayor
Set rs_clave = conexion.Execute("Select max(id_proceso) as clave from procesos")
Dim rs_tabla As New ADODB.Recordset 'este rs contendra todo
Set rs_tabla = conexion.Execute("Select * from procesos")

nombre = txt_nombre.Text 'aqui meto los valores a introducir en la tabla en variables
geografia = txt_geografia.Text
origen = txt_origen.Text
descripcion = txt_descripcion.Text
periodo = txt_periodo.Text
tecnologia = txt_tecnologia.Text
'bot booleano de nos dice si se a pulsado una vez o dos el boton guardar xq si es la segunda vez actualiza y no inserta
If rs_clave.eof and rs_clave.bof Then
clave = 0
If bot = true Then
clave = rs_tabla("id_proceso") 'id_proceso es el campo de la tabla dnd se numeran
Else
clave = clave + 1
bot = True
End If
Do While Not rs_tabla.EOF
If rs_tabla("id_proceso") = clave Then
ivan2 = "Update procesos set nombre = '" & nombre & "', descripcion = '" & descripcion & "', origen = '" & origen & "', periodo = '" & periodo & "', tecnologia = '" & tecnologia & "', geografia = '" & geografia & "' where id_proceso = " & clave
MsgBox (ivan2)
conexion.Execute (ivan2)
Else
ivan = "Insert into procesos (id_proceso, nombre, tecnologia, periodo, geografia, origen, descripcion) values (" & clave & ", '" & nombre & "', '" & tecnologia & "', '" & periodo & "', '" & geografia & "', '" & origen & "', '" & descripcion & "') where id_proceso= " & clave
MsgBox (ivan)
conexion.Execute (ivan)
End If
rs_tabla.MoveNext
Loop

¿alguien sabe tanto cm para resolver esto? gracias