dim cmd as new sqlcommand
cmd.commandtext="insert into user_proj_trans(user_index,proj_code,proj_trns,user_expired_time) values (@user_index,@proj_code,@proj_trns,@user_expired_time)"

cmd.parameters.add(@user_index,UIndex)
cmd.parameters.add(@proj_code,PC )
cmd.parameters.add(@proj_trns,PT )
cmd.parameters.add(@user_expired_time,UTime)

cmd.connection.open
cmd.executenonquery
cmd.connection.close

Private Sub DeselectGridRows(ByVal dgv As DataGridView)
    Dim dgr As DataGridViewRow
    For Each dgr In dgv.SelectedRows
        dgr.Selected = False
    Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object,
               ByVal e As System.EventArgs) Handles MyBase.Load

        Windows.Forms.Cursor.Current = Cursors.WaitCursor
        Me.SuspendLayout()

        PopulateDataGridView(dgv)
        DeselectGridRows(dgv)


        Me.ResumeLayout()
        Windows.Forms.Cursor.Current = Cursors.Default
    End If
End Sub

Private Sub Customer_InformationBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
    Me.Validate()<br />
    Me.Customer_InformationBindingSource.EndEdit()<br />
    Me.Customer_InformationTableAdapter.Update(Me.CustomersDataSet.Customer_Information)<br />
End Sub