Dim rstStores As ADODB.Recordset Dim strCnn As String
' Open a recordset for the Stores table. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " Set rstStores = New ADODB.Recordset rstStores.Open "stores", strCnn, , , adCmdTable
' Loop through the recordset displaying the contents ' of the stor_name field, the field's defined size, ' and its actual size. rstStores.MoveFirst