Login de nuevo .. XD

Ace poco me diste este código para hacer un login. Pensaba que estaba bien pero luego vi que esta mal porque cuando ingreso cualquier usuario y cualquier contraseña iwal entra... Te hago acordar que mi tabla se iama "usuario" y sus campos son "cod_emple" y "password". Espero que me puedas ayudar..
Tenia un sle_usuario y un sle_pass y 2 boton cb_iniciar y cb_cancelar
BT_INICIAR (Evento Clicked)
// Declaramos las variables
 DataStore lds_login
// Instanciamos el objeto
 lds_login = Create DataStore
// Asignamos el dwo_login
 lds_login.DataObject = "dwo_login"
// Asignamos el Objeto Transaccion
 lds_login.SetTransObject(SQLCA)
// Retrieve, ingresando los argumentos, las cajas de texo usuario y contraseña
lds_login. Retrieve( sle_usuario. Text, sle_pass.Text)
 // Entonces hacemos una verificacion
If lds.login.RowCount( ) = 0 Then
   MessageBox("ERROR", "Los datos de acceso son erroneos", StopSing!)
Else
   MessageBox("BIENVENIDO", "Usuario Correcto")
   // Aqui podemos abrir la ventana principal
End If
  // Destruir objeto DataStore
Destroy lds_login