Problema con Visual Basic 6 y SQL Server 2000

[knife]

Buenos dias, les comento mi problema:
Tengo que ejecutar un consulta de update desde una aplicacion visual basic a un servidor sql 2000 y el depurador pasa por la instruccion sin tirar ningun error pero resulta que el registro sigue igual que antes.
Probe de dos formas diferentes:

Public Sub OpenDB()
On Error Resume Next
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=callbusiness;Data Source=DATACENTER"
cn.Open
If Err.Number <> 0 Then
MsgBox "No se pudo abrir la base de datos " & Err.Description
End
End If
End Sub

1º)
Private cmdcodigotira As New ADODB.Command
Private cmdcontactos As New ADODB.Command

dni = Text1(1).Text

cmdcodigotira.CommandText = "UPDATE codigo_tira " _
& "SET amex_tira='" & Text1(2).Text & "', amex_codigo='" & Text1(3).Text & "', amex_ed='" & Text1(4).Text & "', " _
& "hsbc_tira='" & Text1(5).Text & "', hsbc_codigo='" & Text1(6).Text & "', hsbc_ed='" & Text1(7).Text & "', " _
& "bpi_tira='" & Text1(8).Text & "', bpi_codigo='" & Text1(9).Text & "', bpi_ed='" & Text1(10).Text & "', " _
& "WHERE doc_nro='" & dni & "'"

cmdcontactos.CommandText = "UPDATE contactos " _
& "SET cont_pretel1='" & Text2(0).Text & "', cont_tel1='" & Text2(1).Text & "', " _
& "cont_pretel2='" & Text2(2).Text & "', cont_tel2='" & Text2(3).Text & "', " _
& "cont_pretel3='" & Text2(4).Text & "', cont_tel3='" & Text2(5).Text & "', " _
& "cont_pretel4='" & Text2(6).Text & "', cont_tel4='" & Text2(7).Text & "', " _
& "cont_preeq1='" & Text2(8).Text & "', cont_teleq1='" & Text2(9).Text & "', " _
& "cont_preeq2='" & Text2(10).Text & "', cont_teleq2='" & Text2(11).Text & "', " _
& "cont_preeq3='" & Text2(12).Text & "', cont_teleq3='" & Text2(13).Text & "', " _
& "cont_preeq4='" & Text2(14).Text & "', cont_teleq4='" & Text2(15).Text & "', " _
& "WHERE doc_nro='" & dni & "'"

cmdcodigotira.CommandType = adCmdText
cmdcontactos.CommandType = adCmdText

cmdcodigotira.Execute
cmdcontactos.Execute

2º)
Dim modi_CODIGO_TIRA As String
Dim modi_CONTACTOS As String

modi_CODIGO_TIRA = "UPDATE codigo_tira " _
& "SET amex_tira='" & Text1(2).Text & "', amex_codigo='" & Text1(3).Text & "', amex_ed='" & Text1(4).Text & "', " _
& "hsbc_tira='" & Text1(5).Text & "', hsbc_codigo='" & Text1(6).Text & "', hsbc_ed='" & Text1(7).Text & "', " _
& "bpi_tira='" & Text1(8).Text & "', bpi_codigo='" & Text1(9).Text & "', bpi_ed='" & Text1(10).Text & "', " _
& "WHERE doc_nro='" & dni & "'"

modi_CONTACTOS = "UPDATE contactos " _
& "SET cont_pretel1='" & Text2(0).Text & "', cont_tel1='" & Text2(1).Text & "', " _
& "cont_pretel2='" & Text2(2).Text & "', cont_tel2='" & Text2(3).Text & "', " _
& "cont_pretel3='" & Text2(4).Text & "', cont_tel3='" & Text2(5).Text & "', " _
& "cont_pretel4='" & Text2(6).Text & "', cont_tel4='" & Text2(7).Text & "', " _
& "cont_preeq1='" & Text2(8).Text & "', cont_teleq1='" & Text2(9).Text & "', " _
& "cont_preeq2='" & Text2(10).Text & "', cont_teleq2='" & Text2(11).Text & "', " _
& "cont_preeq3='" & Text2(12).Text & "', cont_teleq3='" & Text2(13).Text & "', " _
& "cont_preeq4='" & Text2(14).Text & "', cont_teleq4='" & Text2(15).Text & "', " _
& "WHERE doc_nro='" & dni & "'"

cn.Execute (modi_CODIGO_TIRA)
cn.Execute (modi_CONTACTOS)

Agradecere cualquier ayuda.

saludos

[Improvisado]

Hola:
No tengo a mano el código, pero cuando ejecutas una consulta de actualización sobre la base al final de la instrucción le podes colocar una variable que te devuelve las filas actualizadas, en el caso de que sea un solo registro preguntas por el valor de la variable si es cero no te actualizo nada y lo podria manejar como un error. Si son varias podes realizar una consulta de selección para con count para ver cuantos registros te tiene que actualizar.