Visual Basic.NET - Conexion a Access, saber si existen registros

Hola saludos mi pregunta es la siguiente:

Yo realizo mi conexión y buqueda de datos con el siguiente codigo:

Dim oleconnect As OleDbConnection
Dim olecommand As OleDbCommand
Dim oledr As OleDbDataReader
oleconnect = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0.;DATA SOURCE=BASE DE DATOS")
oleconnect.Open()
olecommand = New OleDbCommand("select * from DATOS", oleconnect)
oledr = olecommand.ExecuteReader

ok

en lo que necesito ayuda es en que tengo que hacer para saber si existen o no registros en la tabla datos, algo asi como;

if existen_registros then
.....
elseif no_existen_registros then
.....
endif

gracias y espero qeu puedan ayudarme

Dim oleconnect As OleDbConnection
Dim olecommand As OleDbCommand
Dim oledr As OleDbDataReader
oleconnect = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0.;DATA SOURCE=BASE DE DATOS")
oleconnect.Open()
olecommand = New OleDbCommand("select * from DATOS", oleconnect)
oledr = olecommand.ExecuteReader
'OPCION A
'--------------------------------------------------------
dim existen_registros as boolean
existen_registros=IIF(oledr.fieldcount()>0,true,false)
if existen_registros then
.....
elseif no_existen_registros then
.....
endif
'---------------------------------------------------------------
'OPCION B
IF oledr.fieldcount() >0 then
......
else
......
endif


espero te funcione

saludos

'OJO este es el bueno

Dim oleconnect As OleDbConnection
Dim olecommand As OleDbCommand
Dim oledr As OleDbDataReader
oleconnect = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0.;DATA SOURCE=BASE DE DATOS")
oleconnect.Open()
olecommand = New OleDbCommand("select * from DATOS", oleconnect)
oledr = olecommand.ExecuteReader
'OPCION A
'--------------------------------------------------------
dim existen_registros as boolean
existen_registros=IIF(oledr.fieldcount()>0,true,false)
if existen_registros then
.....
else
.....
endif
'---------------------------------------------------------------
'OPCION B
IF oledr.fieldcount() >0 then
......
else
......
endif

espero te funcione

saludos

Esta todo ok el codigo pero aun tengo una duda con q texbox validas para la verificacion de tu registro existente