Validating a table

[Buzby]

Oops - I forgot the ADO connection; try this;

Function EmptyTable(TblName As String, ADOConn as ADODB.Connection) As Boolean 
Dim tmpRS As New ADODB.Recordset 
TmpRs.Open "SELECT COUNT(*) AS RecordCount FROM "+TblName, AdoConn, AdOpenStatic, AdLockReadOnly
EmptyTable = Tmprs.Fields("RecordCount")=0 
Tmprs.Close 
End Function