Option Compare Database
Option Explicit
Private m_strShortDateFormat As String
Private Sub cboColumnField_AfterUpdate()
Dim strSQL As String
Dim strSQLSF As String
cboNumericField = Null
strSQL = " SELECT DISTINCT tblDemo.NumericField FROM tblDemo "...