Dim dr As SqlCeDataReaderDim dt As DataTableDim cmd As SqlCeCommand = New SqlCeCommand(sql, cn) cn.Open()dr = cmd.ExecuteReader Using drdt = New DataTabledt.Load(dr)cn.Close()End Using Return dt dgPickIssue.DataSource = dt
SELECT pi.Requisition_Number as Requisition, i.Location as Location FROM Pick as pi INNER JOIN Item as i ON pi.Item_Key = i.Item_Key