I have a problem with VB Recordset.recordcount property
it always return (-1) here is my code:

Private Sub edit_cmd_Click()
    If rs.State = 0 Then
       rs.Open Sql, CN, adOpenKeyset
    Else
       rs.Close
       rs.Open Sql, CN, adOpenKeyset
    End If

    If rs.EOF Then
       MsgBox "The ID number is not found ..."
    ElseIf IDText.Text = "" Then
        MsgBox "Enter the ID number first ..."
    Else
        n = MsgBox("Are you sure you want to change it? ", vbOKCancel)
        If n = 1 Then
           CN.Execute "update Activ set ACTIV_TYPE = '" & TypeText.Text & "' where ACTIV_ID = '" & IDText.Text & "'"
        End If
    End If
End Sub