Speed in VB 2005

[Stephen Plotnick]

I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
could be causing this problem?

[Cor Ligthert [MVP]]

Stephen,

>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd******** *************** *******@giganew s.com...

>I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
could be causing this problem?

[GhostInAK]

Hello Cor Ligthert [MVP],

*pokes* Cor, There was no VB6 mentioned. I know 2003 was a long time ago..

-Boo

Stephen,

>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)

Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd******** *************** *******@giganew s.com...

>I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a
data adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to
load the data grid in vb 2005 it takes aroudn 20 seconds. IS there
something that could be causing this problem?

[Ken Halter]

"GhostInAK" <gh*******@gmai l.comwrote in message
news:be******** *************** ***@news.micros oft.com...

Hello Cor Ligthert [MVP],

*pokes* Cor, There was no VB6 mentioned. I know 2003 was a long time
ago..

-Boo

fwiw, I'd like to see any dotNet code run faster than a fully compiled and
optimized VB6 version of that same code. Heck... I'd like to see a dotNet
IDE that starts up in less time than it takes to make a cup of coffee. Oh
well... Quad core CPUs are coming out soon. Maybe then we'll see 386 era
performance from a dotNet app.

--
Ken Halter - MS-MVP-VB (visiting from VB6 world) - http://www.vbsight.com
Please keep all discussions in the groups..
In Loving Memory - http://www.vbsight.com/Remembrance.htm

[Cor Ligthert [MVP]]

Hi,

Boo, you are right, I don't know where I got that VB6..

Cor

"GhostInAK" <gh*******@gmai l.comschreef in bericht
news:be******** *************** ***@news.micros oft.com...

Hello Cor Ligthert [MVP],

*pokes* Cor, There was no VB6 mentioned. I know 2003 was a long time
ago..

-Boo

>Stephen,

>>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)

Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd******* *************** ********@gigane ws.com...

>>I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a
data adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to
load the data grid in vb 2005 it takes aroudn 20 seconds. IS there
something that could be causing this problem?

[Cor Ligthert [MVP]]

Stephen,

Sorry for my misunderstandin g.
Are you using exactly the same code, because this is the first time I read
about your problem.

Cor

"Cor Ligthert [MVP]" <no************ @planet.nlschre ef in bericht
news:O9******** ******@TK2MSFTN GP02.phx.gbl...

Stephen,

>>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd******** *************** *******@giganew s.com...

>>I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
could be causing this problem?

[Stephen Plotnick]

All I did was install the VB 2005 and copy the source ccode from the VB.NET
(2003)

Private Sub PopulateStoreGr id()

Dim conn As New
System.Data.Ole Db.OleDbConnect ion("Provider=M icrosoft.Jet.OL EDB.4.0;Data
source=C:\BMAct ivityReporting. mdb;Persist Security Info=False")

Dim sSQL As String

If Mid(UserNoLink, 1, 1) = "0" Or Mid(UserNoLink, 1, 1) = "9" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE"

End If

If Mid(UserNoLink, 1, 1) = "1" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE BDRNo LIKE '" &
Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "2" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE RDSNo LIKE '" &
Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "3" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE MSNo LIKE '" &
Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "4" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE SDSNo LIKE '" &
Mid(UserNoLink, 1, 4) & "'"

End If

Dim sSQL2 As String = "select * from BENMOORETABLE"

conn.Open()

Dim da As New System.Data.Ole Db.OleDbDataAda pter(sSQL, conn)

Dim da2 As New System.Data.Ole Db.OleDbDataAda pter(sSQL2, conn)

Try

da.Fill(myDS, "BENMOOR1")

iCount = myDS.Tables("BE NMOOR1").Rows.C ount

da2.Fill(myDS, "BENMOOR2")

myDV = myDS.Tables("BE NMOOR2").Defaul tView

DataGrid1.DataS ource = myDS

DataGrid1.DataM ember = "BENMOOR1"

Dim irow As Integer

Dim icol As Integer

irow = 0

DataGrid1.Selec t(irow)

Dim sStore As String = CType(DataGrid1 .Item(irow, 1), String)

myDV.Sort = "STORE_NUMB ER"

Dim rowIndex As Integer = myDV.Find(sStor e)

Me.LegalName1.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E1").ToString ()

Me.LegalName2.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E2").ToString ()

Me.StoreOwner.T ext = myDV(rowIndex)( "STORE_OWNER"). ToString()

Me.PhoneNumber. Text = myDV(rowIndex)( "PHONE_NUMBER") .ToString()

Me.LegalName3.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E3").ToString ()

Me.LegalName4.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E4").ToString ()

Me.EMailAddress .Text = myDV(rowIndex)( "E-MAIL_ADDRESS"). ToString()

Fil_Name()

'UpdateScreen(i row)

Catch ex As Exception

MessageBox.Show ("Failed to connect to data source")

Finally

conn.Close()

End Try

End Sub

Steve

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:ub******** ******@TK2MSFTN GP02.phx.gbl...

Stephen,

Sorry for my misunderstandin g.
Are you using exactly the same code, because this is the first time I read
about your problem.

Cor

"Cor Ligthert [MVP]" <no************ @planet.nlschre ef in bericht
news:O9******** ******@TK2MSFTN GP02.phx.gbl...

>Stephen,

>>>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd******* *************** ********@gigane ws.com...

>>>I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
could be causing this problem?

[Cor Ligthert [MVP]]

Stephen,

I don't know why it is,

I made this Test program
\\\
'Set in advance a reference to COM adox ext 2.x for dll and security

Public Class Main
Public Shared Sub Main()
'cleanup old databases
Dim catNewDB As New ADOX.Catalog
Dim fi As New IO.FileInfo("c: \db1.mdb")
If fi.Exists Then
If MessageBox.Show ("Delete?", "Existing File db1.mdb", _
MessageBoxButto ns.YesNo) = DialogResult.Ye s Then
fi.Delete()
Else
Exit Sub
End If
End If
catNewDB.Create ("Provider=Micr osoft.Jet.OLEDB .4.0;" & "Data
Source=C:\db1.m db")

Dim conn As New
OleDb.OleDbConn ection("Provide r=Microsoft.Jet .OLEDB.4.0;" & _
" Data Source=C:\db1.m db;User Id=admin;Passwo rd=;")
Dim cmd As New OleDb.OleDbComm and("CREATE TABLE tester ( " & _
"Id int ," & _
"Whatever NVarchar(50)," & _
"CONSTRAINT [pk_Id] PRIMARY KEY (Id)) ", conn)
conn.Open()
cmd.ExecuteNonQ uery()
conn.Close()
Dim ds As New DataSet
Dim da As New OleDb.OleDbData Adapter("Select * from tester", conn)
da.Fill(ds)
For i As Integer = 0 To 40000
ds.Tables(0).Lo adDataRow(New Object() {i, i.ToString}, False)
Next
Dim cmb As New OleDb.OleDbComm andBuilder(da)
da.Update(ds)
Dim ds2 As New DataSet
Dim start As Integer = Environment.Tic kCount
da.Fill(ds2)
MessageBox.Show ((Environment.T ickCount - start).ToString )
End Sub
End Class
///

The result is that the Fill part is about 7 times slower in VB2005 than in
VB2003

I will put this problem as well in another place.

It does not help you but you know that I had the same result.

Cor
"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:rJ******** *************** *******@giganew s.com...

All I did was install the VB 2005 and copy the source ccode from the
VB.NET (2003)

Private Sub PopulateStoreGr id()

Dim conn As New
System.Data.Ole Db.OleDbConnect ion("Provider=M icrosoft.Jet.OL EDB.4.0;Data
source=C:\BMAct ivityReporting. mdb;Persist Security Info=False")

Dim sSQL As String

If Mid(UserNoLink, 1, 1) = "0" Or Mid(UserNoLink, 1, 1) = "9" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE"

End If

If Mid(UserNoLink, 1, 1) = "1" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE BDRNo LIKE '"
& Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "2" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE RDSNo LIKE '"
& Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "3" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE MSNo LIKE '"
& Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "4" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE SDSNo LIKE '"
& Mid(UserNoLink, 1, 4) & "'"

End If

Dim sSQL2 As String = "select * from BENMOORETABLE"

conn.Open()

Dim da As New System.Data.Ole Db.OleDbDataAda pter(sSQL, conn)

Dim da2 As New System.Data.Ole Db.OleDbDataAda pter(sSQL2, conn)

Try

da.Fill(myDS, "BENMOOR1")

iCount = myDS.Tables("BE NMOOR1").Rows.C ount

da2.Fill(myDS, "BENMOOR2")

myDV = myDS.Tables("BE NMOOR2").Defaul tView

DataGrid1.DataS ource = myDS

DataGrid1.DataM ember = "BENMOOR1"

Dim irow As Integer

Dim icol As Integer

irow = 0

DataGrid1.Selec t(irow)

Dim sStore As String = CType(DataGrid1 .Item(irow, 1), String)

myDV.Sort = "STORE_NUMB ER"

Dim rowIndex As Integer = myDV.Find(sStor e)

Me.LegalName1.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E1").ToString ()

Me.LegalName2.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E2").ToString ()

Me.StoreOwner.T ext = myDV(rowIndex)( "STORE_OWNER"). ToString()

Me.PhoneNumber. Text = myDV(rowIndex)( "PHONE_NUMBER") .ToString()

Me.LegalName3.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E3").ToString ()

Me.LegalName4.T ext = myDV(rowIndex)( "LEGAL_NAME_LIN E4").ToString ()

Me.EMailAddress .Text = myDV(rowIndex)( "E-MAIL_ADDRESS"). ToString()

Fil_Name()

'UpdateScreen(i row)

Catch ex As Exception

MessageBox.Show ("Failed to connect to data source")

Finally

conn.Close()

End Try

End Sub

Steve

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:ub******** ******@TK2MSFTN GP02.phx.gbl...

>Stephen,

Sorry for my misunderstandin g.
Are you using exactly the same code, because this is the first time I
read about your problem.

Cor

"Cor Ligthert [MVP]" <no************ @planet.nlschre ef in bericht
news:O9******* *******@TK2MSFT NGP02.phx.gbl.. .

>>Stephen,

IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd****** *************** *********@gigan ews.com...
I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load
the data grid in vb 2005 it takes aroudn 20 seconds. IS there something
that could be causing this problem?

[Stephen Plotnick]

Cor,

Thanks for the quick program and test. I'll need to go back to using vb.NET
for now until this can get resolved; what are the procedures for finding out
when this gets fixed?

Steve
"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:O5******** ******@TK2MSFTN GP06.phx.gbl...

Stephen,

I don't know why it is,

I made this Test program
\\\
'Set in advance a reference to COM adox ext 2.x for dll and security

Public Class Main
Public Shared Sub Main()
'cleanup old databases
Dim catNewDB As New ADOX.Catalog
Dim fi As New IO.FileInfo("c: \db1.mdb")
If fi.Exists Then
If MessageBox.Show ("Delete?", "Existing File db1.mdb", _
MessageBoxButto ns.YesNo) = DialogResult.Ye s Then
fi.Delete()
Else
Exit Sub
End If
End If
catNewDB.Create ("Provider=Micr osoft.Jet.OLEDB .4.0;" & "Data
Source=C:\db1.m db")

Dim conn As New
OleDb.OleDbConn ection("Provide r=Microsoft.Jet .OLEDB.4.0;" & _
" Data Source=C:\db1.m db;User Id=admin;Passwo rd=;")
Dim cmd As New OleDb.OleDbComm and("CREATE TABLE tester ( " & _
"Id int ," & _
"Whatever NVarchar(50)," & _
"CONSTRAINT [pk_Id] PRIMARY KEY (Id)) ", conn)
conn.Open()
cmd.ExecuteNonQ uery()
conn.Close()
Dim ds As New DataSet
Dim da As New OleDb.OleDbData Adapter("Select * from tester", conn)
da.Fill(ds)
For i As Integer = 0 To 40000
ds.Tables(0).Lo adDataRow(New Object() {i, i.ToString}, False)
Next
Dim cmb As New OleDb.OleDbComm andBuilder(da)
da.Update(ds)
Dim ds2 As New DataSet
Dim start As Integer = Environment.Tic kCount
da.Fill(ds2)
MessageBox.Show ((Environment.T ickCount - start).ToString )
End Sub
End Class
///

The result is that the Fill part is about 7 times slower in VB2005 than in
VB2003

I will put this problem as well in another place.

It does not help you but you know that I had the same result.

Cor
"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:rJ******** *************** *******@giganew s.com...

>All I did was install the VB 2005 and copy the source ccode from the
VB.NET (2003)

Private Sub PopulateStoreGr id()

Dim conn As New
System.Data.Ol eDb.OleDbConnec tion("Provider= Microsoft.Jet.O LEDB.4.0;Data
source=C:\BMAc tivityReporting .mdb;Persist Security Info=False")

Dim sSQL As String

If Mid(UserNoLink, 1, 1) = "0" Or Mid(UserNoLink, 1, 1) = "9" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE"

End If

If Mid(UserNoLink, 1, 1) = "1" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE BDRNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "2" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE RDSNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "3" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE MSNo LIKE '"
& Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "4" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE SDSNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

Dim sSQL2 As String = "select * from BENMOORETABLE"

conn.Open()

Dim da As New System.Data.Ole Db.OleDbDataAda pter(sSQL, conn)

Dim da2 As New System.Data.Ole Db.OleDbDataAda pter(sSQL2, conn)

Try

da.Fill(myDS , "BENMOOR1")

iCount = myDS.Tables("BE NMOOR1").Rows.C ount

da2.Fill(myD S, "BENMOOR2")

myDV = myDS.Tables("BE NMOOR2").Defaul tView

DataGrid1.Data Source = myDS

DataGrid1.Data Member = "BENMOOR1"

Dim irow As Integer

Dim icol As Integer

irow = 0

DataGrid1.Sele ct(irow)

Dim sStore As String = CType(DataGrid1 .Item(irow, 1), String)

myDV.Sort = "STORE_NUMB ER"

Dim rowIndex As Integer = myDV.Find(sStor e)

Me.LegalName1. Text = myDV(rowIndex)( "LEGAL_NAME_LIN E1").ToString ()

Me.LegalName2. Text = myDV(rowIndex)( "LEGAL_NAME_LIN E2").ToString ()

Me.StoreOwner. Text = myDV(rowIndex)( "STORE_OWNER"). ToString()

Me.PhoneNumber .Text = myDV(rowIndex)( "PHONE_NUMBER") .ToString()

Me.LegalName3. Text = myDV(rowIndex)( "LEGAL_NAME_LIN E3").ToString ()

Me.LegalName4. Text = myDV(rowIndex)( "LEGAL_NAME_LIN E4").ToString ()

Me.EMailAddres s.Text = myDV(rowIndex)( "E-MAIL_ADDRESS"). ToString()

Fil_Name()

'UpdateScreen( irow)

Catch ex As Exception

MessageBox.Sho w("Failed to connect to data source")

Finally

conn.Close()

End Try

End Sub

Steve

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:ub******* *******@TK2MSFT NGP02.phx.gbl.. .

>>Stephen,

Sorry for my misunderstandin g.
Are you using exactly the same code, because this is the first time I
read about your problem.

Cor

"Cor Ligthert [MVP]" <no************ @planet.nlschre ef in bericht
news:O9****** ********@TK2MSF TNGP02.phx.gbl. ..
Stephen,

>IS there something that could be causing this problem?

Yes a lot, but in most cases (not all) VBNet is faster.

Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd***** *************** **********@giga news.com...
>I upgraded from VB 2003 to VB 2005.
>
I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load
the data grid in vb 2005 it takes aroudn 20 seconds. IS there
something that could be causing this problem?
>

[Paul Clement]

On Mon, 7 Aug 2006 14:55:17 -0500, "Stephen Plotnick" <sp*******@grou pcbf.comwrote:

¤ I upgraded from VB 2003 to VB 2005.
¤
¤ I have a 4000 record table in Access that I'm using oleDB to do a data
¤ adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
¤ data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
¤ could be causing this problem?
¤

Aren't you using some type of paging mechanism for the DataGrid. Querying for and loading 4,000 rows
at one time is really not a very good idea.
Paul
~~~~
Microsoft MVP (Visual Basic)