If dgv.RowCount > 0 Then
TxtDesc.Text = dgv.CurrentRow.Cells("ITEMDESC").Value txtItemCode.Text = dgv.CurrentRow.Cells("PARTCODE").Value
txtPONumber.Text = dgv.CurrentRow.Cells("PONO").Value txtVendorName.Text = dgv.CurrentRow.Cells("VENDORNAME").Value
End If