For a Connection object:set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "F:\MaterialMaster\Material_Master.mdb"
debug.print(conn.Attributes)
conn.close
For a Field object:
set conn = New ADODB.Connection
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "F:\MaterialMaster\Material_Master.mdb"
set rs = New ADODB.Recordset
rs.open "SELECT * FROM tblAMSEA", conn
set f = New ADODB.Field
'Display the field attributes of the tblAMSEA Table
For each f in rs.Fields
debug.print "Attr:" & f.Attributes & VbCrLf
debug.print "Name:" & f.Name & VbCrLf
debug.print "Value:" & f.Value
Next
rs.Close
conn.close
set rs=nothing
set conn=nothing
|