Private Function SelectFNumFromPasport(i As Integer) As String
        Try
            'connection.Open()
            Dim cmd As New OleDbCommand("Select FactoryNum From tblMetering Where idPasport=" & i & " Order By id ASC", connection)
            Dim rdr As OleDbDataReader
            rdr = cmd.ExecuteReader()
            If Not rdr.HasRows Then SelectFNumFromPasport = "" : Exit Function
            SelectFNumFromPasport = ""
            While rdr.Read()
                SelectFNumFromPasport = SelectFNumFromPasport & " " & rdr(0).ToString()
            End While

        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Oops...")
        Finally
            'connection.Close()
        End Try
    End Function