VB Code:
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.open "Provider = Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb" rs.open "SELECT * FROM Publishers Order By Name ASC",cn ' rs.sort = "Name ASC" **Change**


Reply With Quote
