Update an SQL database

Hi,

I want to update a record into a SQL server 2000 database.  When I want to

compare my variable with the record in the database, I can't say why but
it's 
not working, the script continues without doing what I want it to do : 

Dim strServerName

strServerName = "servername"

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=SQLOLEDB;Data Source=SERVER;Initial 
Catalog=DATABASE;User ID=USER;Password=PASSWORD"

objRecordSet.Open "SELECT * FROM TABLE", objConnection, adOpenStatic, 
adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF = true
If objRecordSet.Fields("Server") = strServerName Then
    WScript.Echo strServerName
    WScript.quit
Else
    objRecordSet.MoveNext
End if
Loop

The problem is with the "If objRecordSet.Fields("Server") = strServerName 
Then" line.  Even if both variable are the same, it doesn't do the 
WScript.Echo strServerName.

What could be the problem?

Thank you.