Database update in vb6

[phobia]

Ik heb een database met een tabel tblServer

In die tabel zit een record "actief" een ja/nee. Ja, dan is die server instellingen actief
De rest moeten dan op Nee staan.

Nu heb ik de volgende code bedacht

Private Sub Option1_GotFocus()
If Option1.Value = True Then
    MsgBox "Server is al Actief", vbOKOnly
Else
    Option1.Value = True
    SQLcode = ("Update tblServer set actief = false where Servernaam <>" & Text1(0))
    OpenDB
    Set RS = DB.OpenRecordset(SQLcode)
    CloseDB
End If
End Sub

Dit moet controleren of de server al actief is
en zo niet, dan moeten in de record actief alle server op Nee worden gezet en alleen bij de gekozen server dan de record actief op ja komen.

Kan en wilt iemand mij helpen????