Buenos dias compa, tengo un porblemita en un modulo a la hora de hacer clic en una funcion, quiero que me tragia de la Bd el numero de registros en ese campo de la bd, el problema es que cuando lo hago por primera vez, es decir cuando la bd esta en blanco me da el error de Resul is not available, y en verdad ya no se como pudiera hacer para evitar este error la primera vez, este es el codigo
PUBLIC cn AS NEW Connection
PUBLIC rs AS Result
PUBLIC SUB RadioButton1_Click()
DIM entreg AS Integer
IF RadioButton1.Value = TRUE THEN
rs = cn.Exec("SELECT * FROM estatus")
rs.MoveFirst
IF rs!entregado = "" THEN
entreg = 1
txtprueba.Text = entreg
ELSE
entreg = rs!entregado + 1
ENDIF
ENDIF
END
si alguien ya ha podido solucionar algo similiar se lo agradeceria