vb 如何在对Access创建新字段（列）的过程中自动添加该列的缺省值

搞了一下午，终于解决了，希望能帮助到他人。

'通用-声明
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql$
'连接Data.mdb数据库
Public Sub openConn()
   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\Data.mdb;Uid=;Pwd=123;"
End Sub
'关闭Data.mdb数据库
Public Sub closeConn()
   conn.Close
End Sub
'查找Data.mdb数据库是否存在某列字段，若不存在则添加
Sub AddColIfNotExists(tblName As String, colName As String, colType As String, DefaultValue As String)
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cnStr As String, sqlStr As String
    Dim i As Integer, addCol As Boolean
    '此示例ACCESS数据库放在本VB程序同一目录下
    cnStr = "driver={Microsoft Access Driver (*.mdb)};dbq="
    cnStr = cnStr & App.Path & "\Data.mdb;Uid=;Pwd=123;"