VB Forum / Database Access / November 2005

Hi, i am using the function below (visual basic 6) to determine several
properties of
each field in a recordset (SQL server) and all is working well. My
problem is that I
dont know how to find the default value of a field from the table. Does
anyone have
any code suggestions that would get me the default value

For Each F In rstProgressData.Fields
   If F.Type <> adChapter Then
     If F.Name <> "upsize_ts" Then
       rstDest.AddNew
       rstDest!Progress = F.Name

       Select Case F.Type
         Case adChar, adVarWChar, adVarChar
            rstDest!ProgressFieldType = "String"
            rstDest!ProgressFieldSize = F.DefinedSize
         Case adBoolean
           rstDest!ProgressFieldType = "Boolean"
         Case adSmallInt, adUnsignedTinyInt, adInteger
            rstDest!ProgressFieldType = "Integer"
         Case adDecimal, adNumeric
           rstDest!ProgressFieldType = "Decimal"
         Case adDBTimeStamp
           rstDest!ProgressFieldType = "DateTime"
         Case 203
           rstDest!ProgressFieldType = "Memo"
       End Select

       If (F.Attributes And adFldIsNullable) = adFldIsNullable Then
         rstDest!ProgressFieldNullable = True
       End If

       rstDest.Update
     End If
   End If
 Next F