.NET (Core and Framework)

Dim xr As XmlReader = ExportAdapter.GetEditedCheckXML(chkId)
Dim xdoc As New XmlDocument
xdoc.Load(xr)

Public Shared Function GetEditedCheckXML(ByVal checkId As Integer) As XmlReader

    Dim conn As SqlConnection = New SqlConnection(CONNECTION_STRING)
    Dim comm As New SqlCommand("PS_GetModifiedXmlByCheckId", conn)
    Dim adap As New SqlDataAdapter

    comm.CommandType = CommandType.StoredProcedure
    comm.Parameters.Add("@checkId", SqlDbType.Int).Value = CInt(checkId)
    conn.Open()

    Dim xml = comm.ExecuteXmlReader()
    xml.Read()
    conn.Close()

    Return xml
End Function

Dim acon As New SqlConnection(ConfigurationManager.ConnectionStrings("DOCDBDWHConnectionString").ConnectionString)
            Dim acmd As New SqlCommand()
            Dim sSql As String
            acon.Open()
            sSql = "select distinct vessel_code,vessel_desc from D4A_RAW_BLP"
            acmd.Connection = acon
            acmd.CommandText = sSql

            'Pull vessel code
            Dim dataset As New DataSet
            Dim adpvsl As New SqlDataAdapter
            Dim adpvoy As New SqlDataAdapter
            adpvsl.SelectCommand = acmd
            adpvsl.Fill(dataset, "Vessel")

            'Pull voyageno
            sSql = ""
            sSql = "select distinct voyage_no,vessel_code from D4A_RAW_BLP where vessel_code in (select distinct vessel_code from D4A_RAW_BLP where vessel_code<>'') order by vessel_code"

            adpvoy.Fill(dataset, "voyage")