How do i set row height and column widht of Query ( ADO )

B

bdpl

Hi, I am converting a access 97 project to Access 2003, it was developed in
DAO and i have to use ADO for convertion. in that project., one query is
getting initialized and its row height and column widht is getting set . now
i dont have any idea how to convert that code in ADO. Here is the code..

If Err.Number = 3270 Then
Set prp = qdf.CreateProperty("RowHeight", adSmallInt, 770)
qdf.Properties.Append prp
End If
On Error GoTo 0
On Error Resume Next
Set prp = qdf.Fields("TableName").CreateProperty("ColumnWidth",
dbInteger, 900)
qdf.Fields("TableName").Properties.Append prp
Set prp = qdf.Fields("ProductID").CreateProperty("ColumnWidth",
dbInteger, 900)
qdf.Fields("ProductID").Properties.Append prp
Set prp = qdf.Fields("PackageID").CreateProperty("ColumnWidth",
dbInteger, 800)
qdf.Fields("PackageID").Properties.Append prp
Set prp = qdf.Fields("LogDate").CreateProperty("ColumnWidth", dbInteger,
1000)
qdf.Fields("LogDate").Properties.Append prp
Set prp = qdf.Fields("Changes").CreateProperty("ColumnWidth", dbInteger,
7200)
qdf.Fields("Changes").Properties.Append prp
On Error GoTo 0

- Please help me !!!! Thanx in advance....
 
Top