Web Listing 2: Full custom code for using the stored procedures with your data set
Public Class MainForm

	Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load
		Me.DataGridView1.DataSource = 
Usp_Orders_SelectCustOrdersTableAdapter.GetData(TextBox1.Text)
		Me.DataGridView1.AutoGenerateColumns = True
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button1.Click
		Me.DataGridView1.DataSource = 
Usp_Orders_SelectCustOrdersTableAdapter.GetData(TextBox1.Text)
	End Sub

	'Insert
	Private Sub DataGridView1_UserAddedRow(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewRowEventArgs) Handles DataGridView1.UserAddedRow
		Dim index As Integer = e.Row.Index
		Usp_Orders_SelectCustOrdersTableAdapter.Insert( _
Date.Today, 
Me.DataGridView1.Item(3, 0).Value, 
Nothing, Nothing)
		'Because the adapter doesn't update the bound information, 
		'need to update the bound information manually.
		'The call to refill the data source for the datagrid.  
		'After reseting the datasource, reselect the
		'user's current location - in this case place
		'the user in the next empty cell of the new row.
		Usp_Orders_SelectCustOrdersTableAdapter.Fill( _
Me.DataGridView1.DataSource, TextBox1.Text)
		DataGridView1.Item(4, index - 1).Selected = True
	End Sub

	'Update
	Private Sub DataGridView1_RowValidating(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.RowValidating
		If DataGridView1.IsCurrentRowDirty Then
			Me.Usp_Orders_SelectCustOrdersTableAdapter.Update( _
				DataGridView1.Item(0, e.RowIndex).Value, _
				DataGridView1.Item(4, e.RowIndex).Value, _
				DataGridView1.Item(5, e.RowIndex).Value)

		End If
	End Sub

	'Delete
	Private Sub DataGridView1_UserDeletingRow( _
ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) 
_Handles DataGridView1.UserDeletingRow
		Me.Usp_Orders_SelectCustOrdersTableAdapter.Delete( _
DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value)
	End Sub

End Class