Sub Boton_Click
Dim result as Int
result=dbSqlite.ExecuteQuery2("select count(username) from users where username=?", Array as String(txtUser.Text))
If result>0 then
'Aqui entra si el usuario existe
Log("Bienvenido, "&txtUser.text)
Else
'Aqui entra si no encuentra el usuario
Log("El usuario no existe")
End If
End Sub