Hola buenas tardes, soy nueva programando en vb .NET 2005, y tengo un problema estoy haciendo un modulo de altas, bajas, cambios mi problema estaen la busqueda de registros, mi primera consulta me muestra los datos correspondientes a la consulta, pero las siguientes consultas que realizo, me muestra los datos de mi primera consulta y no actualiza. le muestro el codigo de mi busqueda., Espero puedan ayudarme, gracias de antemano.

[color=#0000ff size=2]


Dim[/color] dt, dt1 [color=#0000ff size=2]As[/color] [color=#0000ff size=2]New[/color] DataTable


[color=#0000ff size=2]Dim[/color] intFila [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = 0


[color=#0000ff size=2]Dim[/color] verif [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] = [color=#800000 size=2]""[/color]


[color=#0000ff size=2]Dim [/color]vpto [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color]


[color=#0000ff size=2]Dim[/color]vvel [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Long[/color]


[color=#0000ff size=2]Dim[/color] save_ip [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] = [color=#800000 size=2]""[/color]


[color=#0000ff size=2]Dim[/color] vtip [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] = [color=#800000 size=2]""
[color=#0000ff size=2][/color]
[color=#0000ff size=2]Private[/color][color=#000000 size=2] [/color][color=#0000ff size=2]Sub[/color][color=#000000 size=2] btnCbuscar_Click([/color][color=#0000ff size=2]ByVal[/color][color=#000000 size=2] sender [/color][color=#0000ff size=2]As[/color][color=#000000 size=2] System.Object, [/color][color=#0000ff size=2]ByVal[/color][color=#000000 size=2] e [/color][color=#0000ff size=2]As[/color][color=#000000 size=2] System.EventArgs) [/color][color=#0000ff size=2]Handles[/color] btnCbuscar.Click



Buscar(txtCserver.Text.ToString)


[/color][color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color][color=#0000ff size=2][/color]
[color=#0000ff size=2][/color]
[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Function[/color] Buscar([color=#0000ff size=2]ByVal[/color] IpS [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color])



[color=#0000ff size=2]Dim[/color] strConexion [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] = [color=#800000 size=2]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db_fac.mdb"[/color]


[color=#0000ff size=2]Dim[/color] strSQL [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] = [color=#800000 size=2]"select * from tbl_config where servidor_ip='"[/color] & IpS & [color=#800000 size=2]"' "[/color]


[color=#0000ff size=2]Dim[/color] dAd [color=#0000ff size=2]As[/color] [color=#0000ff size=2]New[/color] OleDbDataAdapter(strSQL, strConexion)


dAd.Fill(dt1)


dAd.Dispose()


[color=#0000ff size=2]If[/color] dt1.Rows.Count > 0 [color=#0000ff size=2]Then[/color]


ActualizaTexto()


[color=#0000ff size=2]Else[/color]


verif = [color=#800000 size=2]"N"[/color]


MsgBox([color=#800000 size=2]"No existen los datos"[/color], MsgBoxStyle.Information, [color=#800000 size=2]"Datos Incorrectos"[/color])


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]Return[/color] verif


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Function
[/color][color=#0000ff size=2][/color]
[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Sub[/color] ActualizaTexto()





save_ip = txtCserver.Text


txtCusuario.Text = [color=#0000ff size=2]CStr[/color](dt1.Rows(intFila)([color=#800000 size=2]"cta_usu"[/color]))


txtCcontra.Text = [color=#0000ff size=2]CStr[/color](dt1.Rows(intFila)([color=#800000 size=2]"cta_pwd"[/color]))


txtCarea.Text = [color=#0000ff size=2]CStr[/color](dt1.Rows(intFila)([color=#800000 size=2]"area_resp"[/color]))


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]