Saludos:

Lo que de dice "La tabla no tiene datos" es que no hallo ningun registro que cumpliera la condicion WHERE. Trata de colocarlo asi:



Dim CadenaSQL As String = "SELECT * FROM cuentas...