datagrid not displaying on the form after datagrid1.DataB ind( )

[Craig]

Hello,

I have a web form that allows the user to move a unit on a
manufacturing router. The user click one of five buttons which each
represent a step on the router. When the user clicks any of the five
buttons, I do a SQL select to gather some data about this unit and
populate a datagrid w/ the resulting data. I want the data in the
datagrid to be displayed to the user, and THEN I want to prompt the
user w/ a messagebox(), that ask them "Do you want to process this
move request? YES or NO". The problem is when I bind the datagrid it
does NOT display on the form until after the user answers the YES or
NO question, even though I load and bind the datagrid before I prompt
the user w/ the MESSAGEBOX() function. What do I need to do, to have
the datagrid data displayed before the MESSAGEBOX pops up, so the user
can see the datagrid data to make the right answer to the MESSAGEBOX?
The code is listed below. Any help will be greatly appreciated.
Thanks...


NOTE: some of the variables used in the functions are declared
earlier
public

user clicks one of the five router step buttons
and the ConfirmRequest( ) function is called
Private Function ConfirmRequest( ByVal ToOperation As String) As
String
Dim Result1 As Boolean
Dim UpdateDatabaseR esponse As String
Dim Message As String = "Do you want to process this move
request?"
Dim Caption As String = "A T T E N T I O N!!"
Dim Buttons As MessageBoxButto ns = MessageBoxButto ns.YesNo
Dim Result As DialogResult
'Call the function that loads & binds the datagrid w/ this
units data.
Result1 = DispComponentDa ta("PARAM1")
Result = MessageBox.Show (Message, Caption,
MessageBoxButto ns.YesNo, _
MessageBoxIcon. Question, MessageBoxDefau ltButton.Button 1,
MessageBoxOptio ns.ServiceNotif ication)
' If the user clicked YES to this response we will proceede to
update
the MFG Items & Active Tables.
If Result = DialogResult.Ye s Then
UpdateDbRespons e = UpdateDatabase( ToOperation, "parm2",
"parm3")
Return "YES"
Else
Return "NO"
End If
End Function
Private Function DispComponentDa ta(ByVal param1 As String) As
Boolean
Dim myConnection As OleDbConnection
Dim myCommand As OleDbDataAdapte r
Dim ds As New DataSet()
Dim ConnStr As String
Dim SQL As String
'Connection syntax
ConnStr = "Provider=OraOL EDB.Oracle.1;Pe rsist Security
Info=False;User ID=sfdm;Passwor d=icc8336;Data
Source=housys.w orld;Extended Properties="
myConnection = New OleDbConnection (ConnStr)
'DataSetCommand

' N O T I C E: Take the hardcoded values out of this code.
Replace w/ the variables.
SQL = "SELECT b.comppart||' '||b.comprevisi on AS
COMP_REV,b.Comp SFCnumber,NEW_T IME(TO_DATE('01 0170','mmddrr') +
b.tstamp/86400,'GMT','CS T') EnteredDate "
SQL = SQL + "FROM BUILDHISTORY b,ROUTSTEP r "
SQL = SQL + "WHERE b.sfcnumber = 'EA03LDNB2W' "
SQL = SQL + "AND b.step >= 20 "
SQL = SQL + "AND b.status = 'ACTIVE' "
SQL = SQL + "AND r.routername = 'ECG' "
SQL = SQL + "AND b.step = r.step(+) "
SQL = SQL + "ORDER BY b.tstamp"

'SQL = "select * from Masters"
myCommand = New OleDbDataAdapte r(SQL, myConnection)
'use Fill method of DataSetCommand to populate dataset
myCommand.Fill( ds, "BUILDHISTO RY")
Me.DataGrid1.Vi sible = True
'Binding a Grid
Me.DataGrid1.Da taSource =
ds.Tables("BUIL DHISTORY").Defa ultView
Me.DataGrid1.Da taBind()
Me.DataGrid1.Vi sible = True
myConnection.Cl ose()
Return True
End Function