Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
If OleDbConnection1.State = ConnectionState.Closed Then
OleDbConnection1.Open()
End If
OleDbDataAdapter1.SelectCommand.Parameters("CLIENT_KEY").Value = txtClientKey.Text
OleDbDataAdapter1.SelectCommand.Parameters("TRACKING_NUM").Value = txtTrackNum.Text
DataSet21.Clear()
OleDbDataAdapter1.Fill(DataSet21)
OleDbConnection1.Close()
Dim objCurrencyManager As CurrencyManager
objCurrencyManager = CType(Me.BindingContext(DataSet21), CurrencyManager)
txtTrackNum.DataBindings.Add("Text", DataSet21, "TRACKING_NUM")
txtSignOffName.DataBindings.Add("Text", DataSet21, "SIGNED_OFF_BY")
TextBox1.DataBindings.Add("Text", DataSet21, "ADDITIONAL_COMMENTS")
End Sub