refresh the datagrid

[jat14]

i have tried several things that i have found to refresh my datagrid they are not workin
i insert a record and then try to refresh rebind . i insert the record on a submit click event and then i rerun a stored procedure to get the new data(less the name i inserted) and try to rebind i am still getting the original lis
here is a snippet of the cod
Imports System.Diagnostics.Debug
Imports Alliance.Intranet.Common.Data.Access.Co
Imports Alliance.Intranet.Common.Business.Logic.Co

Public Class MyCodeBehind3 : Inherits System.Web.UI.Pag

Public DDplayers As DropDownLis

Public dgResults as Datagri
Public dgSendBid as Datagri
Public dgMoreHistory as Datagri
Sub Page_Load(
Dim ObjDB As New CustomerBi
Dim ReportDS As DataSe
Dim intPlayerID As Intege
Dim ObjReturnDR As OleDbDataReade
Dim ObjDataset As New DataSe
Dim db As New dbco
Dim params(0) As OleDbParamete
If Not IsPostBack() The

tr
response.write("getsendbid"

ReportDS = ObjDB.GetSendBid5(Session("RoundNumber"),Session(" PlayerID")
Catch exc As Exceptio
response.write("The error is with GetSendBid5"
end tr
dgSendBid.DataSource=nothin
dgSendBid.DataSource = ReportD
dgSendBid.DataBind(
'Bind the Names of all the players who have contracts to the DropDownList Bo
DDplayers.DataSource=nothin
DDplayers.DataSource = ReportD
DDplayers.DataTextField = "PlayerGameName
DDplayers.DataValueField = "PlayerGameName
DDplayers.DataBind(
End I

End Su

Sub cmd_Submit_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim ObjDB As New CustomerBi
Dim ObjDR As OleDbDataReade
Dim ReportDS As DataSe
Dim intResult As Intege
'Ready to save to the databas

try
intResult = ObjDB.AddNewOffer(intRoundID, intPlayerID, intPlayerIDContractHolder, strCooperate, strInsurance, session("RoundNumber")
Catch exc As Exceptio
response.write("The error is with AddNewOffer"
end tr

tr
bResult = ObjDB.AddToNumberOffers(Session("RoundNumber"), Session("PlayerID")
Catch exc As Exceptio
response.write("The error is with AddToNumberOffers"
end tr

BindDataOffers(

End Su

Sub BindDataOffers(
response.write("in bind"
Dim ObjDB As New CustomerBi
Dim ObjDR As OleDbDataReade
Dim ReportDS As DataSe
tr
response.write("getsendbid"
ReportDS = ObjDB.GetSendBid5(Session("RoundNumber"),Session(" PlayerID")

Catch exc As Exceptio
response.write("The error is with GetSendBid5"
end tr
dgSendBid.DataSource=nothin
dgSendBid.DataSource = ReportD
dgSendBid.DataBind(
'Bind the Names of all the players who have contracts to the DropDownList Bo
DDplayers.DataSource=nothin
DDplayers.DataSource = ReportD
DDplayers.DataTextField = "PlayerGameName
DDplayers.DataValueField = "PlayerGameName
DDplayers.DataBind(
End Su

any ideas what could be wrong??