Modules & VBA :: Ignore Date Fields In Table When Counting Records?

Suppose I have a table with a variety of fields; one autonumber, some text fields and some date fields.

I need code to calculate the number of fields that are NOT date fields and then code to count how many of those fields (the ones that are not date fields) have data in them.

Following is the code to count how many fields in a table had data and this works well, but now I need to find a way to ignore the date fields. How can this code be modified to do the same but ignore the date fields?

Code:
Public Function PercentCompleted(Table As String, IDProject As Long, TotalFields As Single) As Double

Dim sampO As DAO.Recordset, iCtr As Long, strSQL As String, Percent As Double
'Takes the fields based on the projectID
strSQL = "SELECT *" & _
"FROM " & Table & " WHERE IDProject = " & IDProject
Set sampO = CurrentDb.OpenRecordset(strSQL)

[code]....