Visual Basic - Guardar datos con ado en acces

Hola amigos listeros, soy nuevo en programacion, estoy tratando de hacer una aplicacion en la que requeiro guardar los datos que me aparecen en los texbox pero no lo consigo me sale un error que dice:

La operacion no es permitida si esta abierto el objeto.
trato de hacerlo mediante una consulta sql, por lo menos eso creo, el codigo es este.

If val = True Then

refrescar
If TxtIngreso.Text = "" Then
rs.Open "SELECT Cedula, Fecha, Hora FROM Registros " ' Where Cedula = " & TxtCedula.Text & " '", cn, adOpenDynamic, adLockOptimistic
If rs.EOF <> False Then '.RecordCount <> 0 Then
strSQL = "insert into Registros(Cedula, Fecha, Hora, " & ") " & _
"values ('" & TxtCedula.Text & "', '" & LblDate & "', & val(TxtIngreso.text) & )"
cnn.Execute strSQL

Else

If TxtIngreso.Text <> "" Then
rs.MoveFirst
refrescar
MsgBox "Registro no existente"
TxtIngreso.Text = ""
End If
End If
End If
End If
End If
End Sub


Gracias por su colaboracion

Bien antes de entrar a guardar va esta instruccion, esto es para verficar si el objeto esta abierto, que es por eso que te marca el error.

If rs.State = adStateOpen Then rs.Close

If val = True Then

refrescar
If TxtIngreso.Text = "" Then
rs.Open "SELECT Cedula, Fecha, Hora FROM Registros " ' Where Cedula = " & TxtCedula.Text & " '", cn, adOpenDynamic, adLockOptimistic
If rs.EOF <> False Then '.RecordCount <> 0 Then
strSQL = "insert into Registros(Cedula, Fecha, Hora, " & ") " & _
"values ('" & TxtCedula.Text & "', '" & LblDate & "', & val(TxtIngreso.text) & )"
cnn.Execute strSQL

Else

If TxtIngreso.Text <> "" Then
rs.MoveFirst
refrescar
MsgBox "Registro no existente"
TxtIngreso.Text = ""
End If
End If
End If
End If
End If
End Sub