在vb中怎样用OPENSCHEMA的方法获得SQL某个表中的默认值?该如何处理

在vb中怎样用OPENSCHEMA的方法获得SQL某个表中的默认值?
如果我在SQL下新建一个Table表,在id和psw这两个字段设定默认值分别为abc和123,那在VB下如何通过OPENSCHEMA的方法获得这两个字段的默认值呢?希望高手指点!谢谢!

------解决方案--------------------
Dim cnn As Connection
Dim rs As Recordset
...
cnn.Open
...
Set rs = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Table ", "id "))
Debug.Print rs( "COLUMN_DEFAULT ").Value