BD Access, error al realizar una consulta

[01munrra]

saludos!

en VB estoy haciendo un sistema, donde require de un usuario y una clave para ingresar al sistema, pero cuando ingreso el usuario y su clave, y presiono el boton Aceptar, al hacer la consulta, me esta borrando todos los registro de la tabla de la base de dtos, y no entiendo por que. Aqui el codigo:

Código (vbnet) [Seleccionar] Expandir


    Private Sub Button_aceptar_Click(sender As Object, e As EventArgs) Handles Button_aceptar.Click

        orden = "Select * from experto where usuario = '" & Trim(TextBox_usuario_experto.Text) & "'"
        t_experto.CommandText = orden
        registro = t_experto.ExecuteReader
       
        If registro.HasRows = True Then
            registro.Read()

            If registro(0) = Trim(TextBox_usuario_clave.Text) Then
                'Hacer
            Else
                MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
            End If
        Else
            MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
        End If

    End Sub


que estoy haciendo mal???

[Cj2009z]

que tal!, intenta colocar en la secuencia SQL esto: SELECT usuario FROM experto where=.....  en vez de seleccionar todos los registros de dicha tabla.

[engel lex]

que tal!, intenta colocar en la secuencia SQL esto: SELECT usuario FROM experto where=.....  en vez de seleccionar todos los registros de dicha tabla.

el que va con "=" no es el where es la columna, como el la tiene