SQL Server - actualizar en sql desde vb 6

Holas... perdonen la lata pero estoy desesperado... Tengo la siguiente secuencia para actualizar:

Dim strsql As String
Dim strnomcliente As String

If (txtrut2.Text = "" Or txtnombre.Text = "" Or txtpaterno.Text = "" Or txtmaterno.Text = "" Or txttelefono.Text = "" Or txtdomicilio.Text = "" Or txtcelular.Text = "" Or cbocomuna.Text = "" Or cboestado.Text = "" Or txtemail.Text = "") Then
MsgBox "Faltan Datos", vbCritical
Else
strsql = "select * from tb_cliente"
strsql = strsql & " where id_cliente='" & lblid.Caption & "'"

If rec_banco.EOF = False Then
strsql = "update tb_cliente"
strsql = strsql & " set nombre_cliente='" & txtnombre.Text & "', apaterno_cliente='" & txtpaterno.Text & "', amaterno_cliente='" & txtmaterno.Text & "', direccion_cliente='" & txtdomicilio.Text & "', telefono_cliente='" & txttelefono.Text & "', celular_cliente='" & txtcelular.Text & "', email_cliente='" & txtemail.Text & "', id_comuna='" & cbocomuna.Text & "', estado_cliente='" & cboestado.Text & "'"
conexion.conectarbase
conexion.ejecutar strsql

MsgBox "Datos Actualizados"

En realidad me actualiza pero me cambia todos los datos de todos los cliente y me deja todo igual... trate de especificarlos por id de persona pero igual me hace lo mismo...
Agradecería q alguiien se de la molestia de ayudarme porfavor
Gracias

Creo que te falta el " where id_cliente='" & lblid.Caption & "'" al final del Update.