Hi There.

I am having an issue of time when connecting to an access database with vb.net.

I open the DB, select the RS and then populate a list view with the records from the RS. This whole proccess takes about 10 seconds. When I used to do this from VB 6 it took less the 1 second to do.

Is this normal? Do I have to live with it? Is my code wrong?

Following is my code:

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
db = New ADODB.Connection()
db.CursorLocation = ADODB.CursorLocationEnum.adUseClient
db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & currentDir & "';Persist Security Info=False;")
rs = New ADODB.Recordset()
rs = db.Execute("Select id, travelgroup, name,phone1,fax,email from agents")
Dim itmX As ListViewItem
While Not rs.EOF
If Not IsDBNull(rs.Fields(1).Value) Then
itmX = lstAgents.Items.Add(CStr(rs.Fields(1).Value))
itmX.Tag = CStr(rs.Fields(0).Value)
Else
GoTo nextItem
End If
If Not IsDBNull(rs.Fields(2).Value) Then
itmX.SubItems.Add(rs.Fields(2).Value)
End If
If Not IsDBNull(rs.Fields(3).Value) Then
itmX.SubItems.Add(rs.Fields(3).Value)
End If
If Not IsDBNull(rs.Fields(4).Value) Then
itmX.SubItems.Add(rs.Fields(4).Value)
End If
If Not IsDBNull(rs.Fields(5).Value) Then
itmX.SubItems.Add(rs.Fields(5).Value)
End If
nextitem:
rs.MoveNext()
End While
db.close()
rs = Nothing

Any ideas?

Thanx in advance